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PREFACE 

This  report  documents  software  to  perform  the  static  and  fatigue  tests  for  the  High  Strain 
Wing  Repair  Verification  Program.  The  software  was  developed  under  the  technical 
cognizance  of  Mr.  J.  Minecci  and  Dr.  J.  Alper.  The  author  gratefully  acknowledges  Mr.  V. 
Catone  and  Mr.  M.  Corrigan  for  their  assistance  with  the  test  hardware  and  software,  Mr. 
R.  Hay  for  his  help  with  some  of  the  figures.  Dr.  D.  Barrett  for  his  technical  review  of  the 
report,  and  Ms.  L.  Dalrymple  for  her  invaluable  assistance  In  organizing  and  reviewing  the 
report. 
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1.0  SCOPE 

1.1  Introduction 

The  Experimental  Research  Section  of  the  Advance  Structures  Technology  Branch, 
Aero  Structures  Division  at  the  Naval  Air  Warfare  Center,  Aircraft  Division, 
Warminster,  is  the  Navy  field  activity  responsible  for  performing  a  variety  of  tests 
related  to  aircraft  structures.  Previously,  simple  tests  were  done  with  limited 
spectrum  fatigue  capabilities  and  little  or  no  real-time  data  acquisition  capability. 
More  complicated  tests  were  accomplished  using  the  facility’s  Hewlett-Packard 
HP-1000  main-frame  computer.  To  expand  and  improve  the  capability  of  the 
facility,  five  Hewlett-Packard  HP-9826  desktop  computers  with  HP-6940B 
multiprogrammers  were  purchased.  These  small  desktop  systems  have  all  the 
capabilities  of  the  HP-1 000  but  with  limited  data  acquisition  and  storage.  Now  a 
variety  of  tests  can  be  performed  on  the  desktop  computers,  from  small  static  tests 
to  spectrum  fatigue  tests,  leaving  the  HP-1000  available  for  tests  that  require 
large  data  acquisition.  The  software  for  the  desktop  computers  was  written  in 
Pascal  using  the  HP-Pascal  operating  system. 

1 .2  Purpose 

The  purpose  of  the  system  is  to  take  advantage  of  HP-9826  desktop  computers  to 
off-load  the  mainframe  computer  for  the  test  floor,  and  to  add  computer  driven  test 
with  data  retrieval  capability  to  the  fatigue  lab. 
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1 .3  Document  Overview 

This  report  discusses  the  software  for  the  HP-9826  to  control  the  testing  and 
perform  the  data  retrieval.  While  the  design  of  the  software  for  the  High  Strain 
Wing  Repair  Verfication  Program  is  described  in  this  report,  the  requirements  and 
architecture  are  generic  to  any  test  software.  Military  Standard  DOD-STD-2167A, 
"Defense  System  Software  Development,"  was  used  as  a  guide  for  the  format  of 
this  report. 

1 .4  Background 

The  Experimental  Research  Section  conducts  tests  for  characterization  of  new 
materials  and  for  the  structural  adequacy  of  aircraft  subcomponents.  The 
characterization  of  materials  testing  is  typically  performed  In  a  laboratory, 
commonly  referred  to  as  the  "fatigue  lab".  The  majority  of  aircraft  subcomponent 
tests  are  performed  in  the  structural  test  area,  or  "test  floor." 

The  fatigue  lab  is  a  1000  square  foot,  environmentally  controlled  area.  There  are 
six  servo-hydraulic  test  fixtures  contained  in  the  fatigue  lab,  with  the  associated 
electronic  hardware  to  control  the  test  fixtures.  Most  of  the  electronic  hardware  is 
dedicated  to  imparting  the  desired  load  on  the  material  being  tested,  and  reading 
the  actual  load  from  the  test  fixture.  One  hardware  component,  the  function 
generator,  outputs  a  variety  of  waveforms  to  cause  the  test  fixture  to  run  a  fatigue 
test.  For  example,  a  simple  ramp  function  can  be  used  to  perform  a  quasi-static 
test,  or  a  continuous  sine-wave  can  be  used  for  a  constant  amplitude  fatigue  test. 
Another  hardware  component,  the  profiler,  allows  a  limited  series  of  loads  to  be 
stored  on  magnetic  tape,  then  controls  the  test  fixture  to  use  the  loads  on  the  tape 
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In  sequence.  The  sequence  can  be  repeated  as  many  times  as  desired.  These 
hardware  components  are  obviously  limited  to  the  tests  described.  In  addition, 
these  components  do  not  have  provisions  for  recording  any  material  parameters, 
such  as  strain. 

The  test  floor  is  a  20,000  square  foot  area  inside  a  hanger  and  not  environmentally 
controlled,  I.e.,  it  is  heated  in  the  winter,  but  not  air-conditioned  In  the  summer. 
The  test  floor  is  essentially  an  open  area  where  specialized  test  fixtures  can  be 
fabricated.  Numerous  servo-hydraulic  actuators,  ranging  from  5,000  to  100,000 
pound  load  capacity,  are  available  for  building  into  the  test  fixture  to  apply  loads  to 
the  aircraft  subcomponent. 

The  control  room,  a  2000  square  foot  environmentally  controlled  area,  contains  the 
same  type  of  electronic  hardware  to  control  the  tests  as  does  the  fatigue  lab,  just 
more  of  it.  The  heart  of  the  control  room  is  a  Hewlett-Packard  HP-1000  computer 
which  runs  the  actuator  controllers.  The  HP-1000  has  the  versatility  to  run  any 
type  of  desired  test.  It  can  perform  a  quasi-static  or  constant  amplitude  test  like 
the  function  generator.  The  HP-1000  can  also  perform  a  random  spectrum  fatigue 
like  the  profiler,  but  the  HP-1000  is  not  limited  in  the  number  of  load  levels  that 
can  be  stored.  Another  benefit  of  the  computer-based  system  is  the  capability  to 
record  test  parameters  at  any  time  during  a  test.  Loads,  strains,  deflections, 
temperatures,  etc.,  can  be  recorded  instantaneously,  and  used  later  for  the  post¬ 
test  analysis. 

The  overriding  disadvantage  of  using  the  HP-1000  as  a  controller  on  the  test  floor 
is  that  there  is  only  one  of  them,  and  it  is  prohibitively  expensive  to  purchase 
another  one.  When  the  computer  is  controlling  one  test,  it  cannot  control  another 
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t6St,  it  cannot  be  used  for  post-test  analysis,  and  it  cannot  be  used  for  the  software 
development  of  a  future  test.  This  could  be  corrected  by  using  a  time-share 
operating  system,  but  the  computer  system  was  purchase  before  time-share 
systems  were  available  on  a  computer  of  this  capacity.  The  other  reason  a  time- 
share  system  is  not  used  is  because  the  computer  must  be  dedicated  to  perform 
tests  of  the  size  that  run  on  the  test  floor.  Typically,  the  components  being  tested 
are  one-of-a-kind  test  articles  costing  millions  of  dollars  to  design  and  fabricate.  If  a 
time-share  system  was  used,  the  through-put  of  the  test  would  be  effected.  The 
limiting  factor  for  the  test  time  is  usually  a  combination  of  the  computer  through-put 
and  the  response  of  the  hydraulic  actuators.  A  time-share  system  also  allows  the 
possibility  of  a  user  to  hang  the  system.  If  the  system  were  to  hang  while  a 
subcomponent  were  at  a  high  load,  the  time  required  to  catch  and  correct  the 
problem  could  cause  the  subcomponent  to  fail. 

The  solution  to  the  limited  capabilities  of  the  fatigue  lab  controllers,  and  the  one- 
prog  ram-at-a-time  HP-1000  test  floor  was  to  use  the  new  generation  of  desktop 
computers.  Desktop  computers  had  the  capability  of  through-put  to  perform  the 
functions  of  the  HP-1000,  but  for  years  did  not  have  the  associated  I/O 
capabilities  until  Hewlett-Packard  developed  the  HP-6940B  multiprogrammer.  Tied 
to  an  HP-9826,  the  multiprogrammer  has  the  capability  to  perform  the  same 
functions  of  the  HP-1000,  but  on  a  smaller  scale.  The  new  desktop  system,  as 
shown  In  Figure  1.1,  has  enough  capability  to  control  the  less  complex  tests  on  the 
test  floor,  and  has  all  the  capability  required  to  perform  tests  in  the  fatigue  lab,  at  a 
cost  that  allows  several  systems  to  be  purchased.  Five  computer/multiprogrammer 
systems  were  purchased  by  the  Experimental  Research  Section  to  perform  these 
functions. 
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For  a  detailed  description  of  the  test  and  computer  hardware,  refer  to  Appendix  A. 

1 .5  Applicable  Documents 

The  following  manuals  are  published  by  the  Hewlett-Packard  Desktop  Computer 

Division,  Fort  Collins,  Colorado,  except  where  noted: 

■  The  Pascal  Handbook  for  the  HP  9826  and  9836  Computers,  HP  Part  Number 
09826-90071,1982. 

■  The  Pascal  User’s  Manual,  HP  Part  Number  09615-90020,  1983. 

■  The  Pascal  Procedure  Library  User's  Manual  for  the  HP  9826  and  9836 
Computers,  HP  Part  Number  09826-90075,  1982. 

■  HP  9122D/S  and  9123D/S  Disc  Drives  Operator's  Manual,  HP  Part  Number 
09122-90000,  1985. 

■  Multiprogrammer  Model  6940B  Operating  and  Service  Manual,  HP  Part  Number 
06940-90008,  1979. 

■  Programming  Guide,  HP  9826-GPIO(Basic)  with  the  6940B  Multiprogrammer, 
HP  Part  Number  06940-90010,  1983. 

■  D/A  Voltage  Converter  Card  Model  69321 B  Operating  and  Service  Manual,  HP 
Part  Number  69321-90003,  1972. 

■  Quad  D/A  Voltage  Converter  Card  Model  69322A  Operating  and  Service 
Manual,  HP  Part  Number  69322-90001,  1977. 
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■  Relay  Output  Card  Model  69330A  Operating  and  Service  Manual,  HP  Part 
Number  69330-90001,  1970. 

■  High  Speed  A/D  Converter  Card  Model  69422A  Operating  and  Service  Manual, 
HP  Part  Number  69422-90001,  1978. 

■  Low  Level  A/D  Converter  and  Scanner  Card  Model  69423A  Operating  and 
Service  Manual,  HP  Part  Number  69423-90001,  1979. 

■  Event  Sense  Card  Model  69434A  Operating  and  Service  Manual,  HP  Part 
Number  69434-90001,  1972. 

■  Minicounter  II  Model  428  Instruction  Manual,  Manual  Number  IM  428,  Waugh 
Controls  Corporation,  Chatsworth,  CA,  1977. 
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2.0  REQUIREMENTS 

The  requirements  are  divided  into  system  requirements  and  software  requirements. 
The  system  is  defined  as  all  the  hardware  and  software  required  to  run  a  test.  The 
hardware  includes  the  HP-9826  computer,  the  HP-6940B  multiprogrammer 
together  with  it's  associated  cards,  and  any  other  wiring  and  electronic  devices  (see 
Figure  1.1)  required  for  the  computer  and  multiprogrammer  to  interact  with  the  test 
instrumentation  (load  controllers,  strain  gages,  etc.).  The  software  requirements 
are  divided  into  core,  static  test,  and  fatigue  test  requirements.  The  core  software 
is  software  that  is  common  to  both  a  static  and  fatigue  test.  Test  specific 
requirements  are  given  in  the  static  and  fatigue  test  requirement  sections. 

2.1  System  Requirements 

2.1.1  The  system  must  be  tied  Into  the  control  panel  for  the  hydraulic  power 
supply,  or  pump,  to  allow  the  following  capabilities: 

2. 1.1.1  The  system  must  have  the  capability  to  allow  the  operator  to  turn  on  the 
pump,  and  to  prevent  the  operator  from  turning  on  the  pump.  This  permits  the 
software  to  allow  the  pump  to  be  turned  on  only  after  setting  a  prescribed  state, 
such  as  zero  load  for  the  actuators. 

2.1 .1 .2  The  system  must  be  able  to  dump  the  pump. 

2.1 .1 .3  The  system  must  sense  when  the  pump  is  dumped  externally. 

2.1.2  The  system  must  have  the  capability  to  read  voltages,  such  as  load 
feedback  voltage. 
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2.1.3  The  system  must  have  the  capability  to  output  voltages,  such  as  load 
command  voltage.  The  system  must  also  have  the  capability  to  remove  the  voltage 
slowly  in  the  event  that  the  computer  software  hangs  up. 

2.2  Software  Requirements 

2.2.1  Core  Software  Requirements 

2.2. 1.1  The  software  must  be  able  to  determine  the  state  of  the  pump.  If  the 
pump  is  dumped  externally  during  a  test,  the  software  must  suspend  the  test  at 
that  point  and  return  control  to  the  operator. 

2.2. 1.2  The  software  must  be  able  to  control  the  state  of  the  pump.  At  the  start 
of  the  program,  and  after  the  configuration  is  set,  the  software  must  send  a  zero 
load  output  to  the  Servacs  (the  Servac  is  the  electronic  interface  between  the 
operator  and  the  hydraulic  actuator,  and  is  described  in  Appendix  A).  The  software 
must  not  allow  the  pump  to  be  started  until  after  this  condition  is  set,  and  the  load 
feedback  from  all  actuators  is  within  tolerances. 

2.2. 1.3  The  software  must  be  able  to  convert  the  desired  load  in  pounds  to  volts. 
The  conversion  depends  on  the  actuator  size  and  load  range  of  the  Servac.  The 
software  must  be  compatible  with  the  size  of  the  actuators  and  the  load  ranges  of 
the  Servacs.  For  the  test  floor,  the  software  must  allow  the  operator  to  type  in  the 
capacity  of  the  actuators.  For  the  fatigue  lab,  the  capacity  must  be  selectable  for 
20,  50,  or  100  kip  at  10,  20,  50,  or  100%  load  range. 

2.2. 1.4  The  software  must  be  able  to  read  the  feedback,  or  "B"  bridge  of  the  load 
ceil,  from  any  load  ceil  on  the  test  floor  or  fatigue  lab. 
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2.2.1 .5  The  software  must  ensure  that  the  feedback  follows  closely  to  the  desired 
load.  Any  test  where  the  feedback  is  lagging  sigruficantly  behind  the  desired  load 
can  indicate  a  failure  mode  in  the  test  element,  or  a  failure  in  the  test  fixture.  The 
software  must  allow  the  operator  to  change  the  amount  of  tolerance  allowed 
between  the  desired  load  and  the  feedback.  This  is  important  in  that,  for  every 
test,  the  amount  of  lagging  between  the  desired  load  and  the  feedback  can  never 
be  predicted,  it  is  more  of  a  trial  and  error  procedure  performed  by  the  test 
engineer. 

2. 2. 1.6  The  software  must  allow  the  operator  or  test  engineer  to  stop  the  test  at 
any  point.  This  is  extremely  Important  in  a  situation  where  a  test  anomaly  has 
occurred.  For  example.  If  a  noise  comes  out  of  the  test  element,  the  engineer  may 
want  to  stop  the  test  to  check  the  strain  data.  Another  reason  to  stop  a  test 
immediately  is  due  to  a  hydraulic  leak.  The  software  must  also  give  the  operator 
the  capability  to  Immediately  ramp  the  output  load  to  zero,  or  resume  the  test  from 
where  it  was  stopped.  If  the  operator  chose  to  ramp  the  load  to  zero,  the  software 
must  give  the  operator  an  option  to  dump  the  pump,  as  in  the  example  of  a 
hydraulic  leak. 

2.2.1 .7  If  data  is  recorded  during  the  test,  the  software  must  have  the  capability  to 
print  the  data. 

2.2.1. 8  In  addition  to  the  pump  and  load  feedback  tolerance  checks  mentioned 
above,  all  software  shall  be  written  with  safety  in  mind.  This  is  not  only  important 
to  prevent  an  inadvertent  failure  of  the  test  element,  but  also  the  safety  of  those 
individuals  working  in  the  area  of  the  load  frames  or  test  fixtures;  an  unanticipated 
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catastrophic  failure  can  cause  great  personal  injury.  Therefore,  the  software  must 
be  designed  and  written  with  safety  as  the  most  important  factor. 

2.2.2  Static  Test  Software  Requirements 

For  any  static  test  program,  specialized  software  could  be  written  to  perform  the 
test.  However,  in  the  fatigue  lab,  many  static  tests  are  very  similar  in  nature,  and 
therefore,  a  generic  static  test  program  can  be  written.  Some  options  can  be  built 
into  the  software  to  give  it  the  maximum  application.  The  following  are 
requirements  that  must  be  programmed  into  generic  static  test  software: 

2.2.2. 1  The  software  must  have  a  procedure  for  entering  a  maximum  test  load,  or 
an  option  to  run  the  test  to  failure,  in  which  case  the  maximum  test  load  would  be 
the  capacity  of  the  hydraulic  actuator. 

2.2.2. 2  The  software  must  have  the  capability  to  read  strain  gages  or 
extensiometers.  A  generic  static  test  program  need  only  read  a  maximum  of  five 
strain  gages,  any  more  than  that  would  slow  down  the  system  considerably  as 
described  in  Appendix  A.  The  software  must  also  allow  for  calibration  of  the  strain 
gages.  Calibration  is  performed  by  an  electronic  device  that  requires  the  operator  to 
adjust  the  settings.  The  software  must  have  the  capability  to  show  an  operator  the 
strain  reading  during  calibration. 

2.2.2.3  Even  though  the  system  is  capable  of  reading  load  and  strain  data  at  each 
small  increment  of  load,  the  software  must  have  the  capability  to  load  in  steps  to 
the  maximum  load.  This  gives  the  engineer  the  option  of  reading  data  at 
percentages  of  the  maximum  load  for  easier  data  reduction  after  the  test.  In 
addition,  the  software  must  retain  the  most  recent  incremental  loads  and  strains  in 
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the  event  of  a  failure.  For  example,  the  test  engineer  may  want  load  arwJ  strain 
data  at  every  1,000  pound  increment.  During  the  test,  while  loading  from  5,000  to 
6,000  pounds,  the  test  specimen  fails.  The  software  should  retain  the  last  ten  load 
and  strain  readings  so  that  the  engineer  can  see  what  occurred  at  the  onset  of 
failure. 

2.2.2A  The  program  must  have  the  capability  to  run  a  tension  or  compression  test 
In  either  load  or  displacement  control.  Some  Servacs  have  the  capability  to  control 
the  hydraulic  actuator  based  on  displacement  rather  than  load. 

2.2.2. 5  The  software  must  allow  the  operator  to  choose  a  straight  ramp  or  sine 
wave  function  for  loading. 

2.2.2. 6  The  software  must  allow  the  operator  to  print  data  during  the  test,  so  that 
the  load  and  strain  data  can  be  interpreted  during  the  test.  In  any  case,  the 
software  must  store  the  data  for  printing  or  plotting  after  the  test. 

2.2.3  Fatigue  Test  Software  Requirements 

In  general,  no  two  fatigue  test  programs  are  ever  the  same.  First  and  foremost,  no 
two  fatigue  test  spectrums  are  ever  the  same.  Even  in  a  test  using  one  spectrum, 
the  test  engineer  may  want  to  remove  certain  load  levels  In  the  spectrum  to 
determine  what  effect  that  may  have.  Therefore,  a  generic  random  spectrum 
fatigue  test  program  cannot  be  written.  However,  software  can  be  written 
specifically  for  one  application,  but  annotated  where  test  program  specifics  are 
required  to  facilitate  rewriting  the  software  for  another  test  program.  Software 
requirements  for  a  fatigue  test  are  as  follows: 


12 


NAWCADWAR-93085-60 


2.2.3. 1  The  software  must  allow  the  use  of  a  fatigue  spectrum. 

2.2.3. 2  The  software  must  allow  the  test  to  be  started  at  any  point  in  the 
spectrum,  not  just  the  beginning. 

2.2.3.3  The  software  must  be  written  to  allow  the  test  to  be  stopped  at  any  point 
given  by  the  test  engineer.  This  is  typically  done  for  inspection  intervals  on  the  test 
element,  or  to  stop  the  test  for  the  night. 

2.2. 3.4  The  software  must  be  written  to  run  completely  unattended  day  or  night, 
even  over  weekends,  providing  nothing  unusual  occurs. 
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3.0  DESIGN 

This  section  discusses  the  test  program  software  In  top-level  detail. 

3.1  Definitions 

3.1.1  Computer  Software  Configuration  Item  (CSCI):  A  configuration  item  for 
computer  software,  this  project  has  two  CSCIs,  numbered  CSCI-1  and  CSCI-2. 

3.1.2  Computer  Software  Component  (CSC):  A  distinct  part  of  a  CSCI.  CSCs 
may  be  further  decomposed  Into  other  CSCs  and  CSUs.  CSCs  are  numbered  such 
that  they  can  be  traced  to  the  parent  CSCI.  For  example,  the  first  two  CSCs 
contained  in  CSCI-1  are  numbered  CSC-1.1  and  CSC-1.2. 

3.1.3  Computer  Software  Units  (CSU):  An  element  specified  In  the  design  of  a 
CSC  that  is  separately  testable.  CSUs  are  numbered  such  that  they  can  be  traced 
to  the  parent  CSC.  For  example,  the  first  two  CSUs  contained  in  CSC-1.2  are 
numbered  CSU-1 .2.1  and  CSU-1 .2.2. 

3.2  Overview 

There  are  two  CSCIs  for  the  High  Strain  Wing  Repair  Structural  Verification 
Program.  CSCI-1  is  the  test  software  to  perform  the  static  and  fatigue  tests  (see 
Appendix  B  for  a  program  listing).  The  software  was  developed  by  first  writing 
generic  test  software,  then  tailoring  certain  aspects  to  the  peculiarities  of  the  High 
Strain  Wing  Repair  tests.  CSCI-2  is  the  verification  software  used  to  check  both 
the  hardware  and  software  (see  Appendix  C  for  a  program  listing).  This  is 
accomplished  by  using  portions  of  CSCI-1,  then  revising  them  to  run  as  a  stand 


14 


NAWCADWAR-93085-60 


alone  program  to  verify  the  function  of  the  software  in  CSCI-1  and  to  verify  the 
system  hardware. 

3.2.1  CSCI-1  Test  Software  Architecture 

To  simplify  development  of  the  test  software,  CSCI-1 ,  the  software  is  segregated 
into  six  CSCs,  the  test  executive  software  and  five  library  modules,  as  shown  in 
Figure  3.1  and  described  in  sections  3.2.1. 1  through  3.2.1. 5  below.  The  library 
modules  contain  all  of  the  constants,  functions,  and  procedures  required  to  compile 
and  run  the  test  executive.  These  library  modules  are  mostly  unaltered  from  the 
generic  test  software,  some  having  less  alterations  than  the  others.  Once  the 
library  modules  are  written  and  debugged,  they  are  compiled  for  use  by  the  test 
executive.  The  intent  is  to  alter  the  library  modules  only  as  required  during 
software  development.  Having  the  library  modules  already  compiled  dramatically 
shortens  the  compile  time  of  the  test  executive. 

3.2.1 .1  The  Test  Executive,  CSC-1 .1 ,  executes  the  test  by  allowing  the  operator  to 
select  the  static  or  fatigue  test  mode,  reading  in  default  values  for  the  test 
parameters,  allowing  the  operator  to  modify  the  test  parameters  as  required,  and 
then  running  the  test. 

3.2.1. 2  The  Variable  Definitions  library  module,  CSC-1 .2,  defines  all  of  the 
constants  used  in  the  test  executive  and  in  the  other  library  modules. 

3. 2. 1.3  The  Pump  Commands  library  module,  CSC-1 .3,  contains  the  procedures 
relating  to  the  hydraulic  power  supply. 
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3.2.1. 4  The  Load  Commands  library  module,  CSC-1.4,  contains  the  procedures 
relating  to  controlling  and  reading  the  load  applied  to  the  test  specimen. 

3. 2. 1.5  The  Test  Parameters  library  module,  CSC-1.5,  contains  the  procedures  to 
allow  the  operator  to  read,  change,  and  save  the  test  parameters,  and  to  restart  the 
fatigue  test  at  any  point  in  the  spectrum. 

3.2.1. 6  The  Test  Conditions  library  module,  CSC-1.6,  contains  the  procedures  to 
check  switches  during  the  test  in  case  the  operator  has  thrown  a  switch,  and  all 
the  procedures  necessary  to  operate  the  electronic  counters  which  have  a  battery 
backup  in  the  event  of  a  power  loss. 

3.2.2  CSCI-1  System  Modes  and  States 

3.2.2. 1  CSCI-1  has  two  basic  modes,  the  static  test  mode  and  the  fatigue  test 
mode.  The  program  defaults  to  fatigue  test  mode  when  started.  After  that,  the 
operator  can  change  modes  during  the  menu  state,  described  below. 

3. 2.2. 2  Both  modes  have  the  same  three  states:  the  menu  state,  the  execution 
state,  and  the  operator  input  state. 

3.2.2.2.1  The  menu  state  is  the  operators  avenue  to  change  the  test  mode,  any 
of  the  test  parameters,  power  up  the  hydraulic  power  supply,  calibrate  the  load 
readings,  start  the  test,  or  end  the  program. 

3.2.2.2.2  During  the  execution  state,  the  test  is  actually  performed,  i.e.  applying 
load  to  the  test  specimen,  reading  the  load  feedback,  checking  that  the  load 
feedback  is  within  the  set  parameters,  checking  that  the  hydraulic  power  supply  Is 
still  running,  etc.  The  execution  state  continues  to  run  without  operator  input  until 
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a  specific  event  occurs.  In  the  static  test  mode,  the  execution  state  will  continue 
until  the  prescribed  load  level  is  reached,  at  which  time  the  execution  state  is 
stopped,  and  the  operator  input  state  is  entered,  in  the  fatigue  test  mode,  the 
execution  state  will  continue  until  the  prescribed  point  in  the  spectrum  is  reached, 
at  which  time  the  execution  state  is  stopped,  and  the  operator  input  state  is 
entered.  Lastly,  during  either  mode,  if  the  operator  desires  that  the  test  be 
stopped,  the  operator  can  enter  any  key,  which  will  halt  execution  and  enter  the 
operator  input  state. 

3.2.2.2.3  During  the  operator  input  state,  the  load  is  held  constant  until  the 
operator  enters  an  appropriate  response,  identified  below.  The  load  is  continually 
monitored  to  be  certain  the  load  feedback  is  within  the  set  parameters,  if  the 
feedback  does  not  stay  within  those  parameters,  the  pump  is  shut  down  and  the 
output  load  is  quickly  ramped  to  zero  load,  then  the  program  returns  to  the  menu 
state. 

3. 2.2. 2.3.1  If  the  operator  input  state  is  entered  while  in  the  static  test  mode,  the 
operator  is  requested  to  enter  the  next  load  value. 

3.2.2.2.3.2  If  the  operator  input  state  is  entered  while  in  the  fatigue  test  mode,  the 
operator  is  asked  whether  to  continue  or  quickly  ramp  to  zero  load.  If  the  operator 
request  is  to  ramp  to  zero  load,  the  option  is  given  to  shut  down  the  hydraulic 
power  supply. 

3.2.3  CSCI-2  Architecture 

To  verify  the  operation  of  the  hardware  and  software,  CSCI-2  was  developed  using 
selected  software  from  CSCI-1.  CSCI'2  consists  of  six  CSCs,  as  shown  in  Figure 
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3.2  and  described  in  sections  3.2.3.1  through  3.2.3.5  below,  each  of  which  is  a 
stand-alone  program,  so  that  only  the  subject  tasks  are  tested.  Not  all  aspects  of 
CSCI-1  are  tested;  only  those  components  that  are  easily  separable  and  are  prone 
to  configuration  changes  have  been  developed  into  verification  routirws.  Any  errors 
or  configuration  changes  required  as  a  result  of  the  CSU  testing  must  be  reflected  In 
CSCI-1 . 

3.2.3. 1  Program  Check  Pump  Commands,  CSC-2.1,  verifies  the  Pump  Commands 
library  module,  CSC-1 .3. 

3. 2.3. 2  Program  Check  Load  Commands,  CSC-2.2,  verifies  the  Load  Commands 
library  module,  CSC-1 .4. 

3.2.3.3  Program  Check  Test  Parameter  Routines,  CSC-2.3,  verifies  the  Test 
Parameter  library  module,  CSC-1 .5. 

3.2.3.4  Program  Check  Switches,  CSC-2.4,  verifies  the  Functions  Dumped,  CSU- 
1.3.2,  and  Switch  Set,  CSU-1.6.1,  and  the  hardware  connections  on  the  counter 
panel. 

3.2.3. 5  Program  Check  Counters,  CSC-2.5,  verifies  the  routines  associated  with 
the  counters  in  the  Test  Conditions  library  module,  CSU-1.6.2  through  CSU-1.6.6. 

3.2.3. 6  Program  Check  Display,  CSC-2.6,  verifies  the  sections  of  the  Test 
Executive,  CSC-1. 1,  concerning  the  screen,  namely  Refresh  Screen,  CSU-1.1.5, 
Ramp,  CSU-1.1.7,  Increment  Counters,  CSU-1.1.8,  and  Hold,  CSU-1.1.9. 
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3.2.4  CSCI-2  System  States  and  Modes 

This  section  is  not  applicable  to  CSCI-2  since  all  CSCs  are  stand-alone  programs 
and  execute  the  validation  and  verification  as  required. 


3.3  CSCI-1  Design  Description 

This  section  provides  a  description  of  each  CSC  and  CSU  for  CSCi-1 .  Figure  3.3 
presents  the  program  architecture  of  the  test  program  in  graphical  form. 

3.3.1  CSC-1.1  Test  Executive:  This  is  the  main  program  that  executes  the  test 
and  calls  all  of  the  library  modules. 

3.3.1. 1  CSU-1.1.1  Variable  Declarations:  All  variable  declarations  are  included  in 
this  CSU  as  required  by  Pascal.  All  constants  except  those  specific  to  the  High 
Strain  Wing  Repair  program  are  contained  in  the  Variable  Definitions  library  module, 
CSC-1.2. 

3.3.1. 2  CSU-1.1.2  Define  Defaults:  This  CSU  sets  defaults  to  reduce  the  operator 
interaction  upon  starting  the  program.  For  example,  a  default  is  set  to  run  a  fatigue 
test  since  the  majority  of  the  tests  will  be  fatigue.  It  also  opens  the  fatigue 
spectrum  data  file. 

3.3. 1.3  CSU-1.1.3  Run  Menu:  This  CSU  enters  the  menu  state  to  allow  the 
operator  to  change  the  defaults,  start  the  pump  or  test,  or  end  the  program.  The 
operator  can  elect  to  change  the  parameters  one-by-one  or  read  a  configuration  file 
that  contains  all  of  the  parameters,  which  calls  CSC-1.5,  Test  Parameters.  The 
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operator  can  write  a  configuration  file,  which  also  calls  CSC~1 .5.  The  operator  can 
elect  to  start  the  pump,  at  which  time  CSC-1.3,  Pump  Commands,  is  called.  The 
operator  can  elect  to  calibrate  the  load  instrumentation,  at  which  time  CSC-1.4, 
Load  Commands,  is  called.  Control  is  passed  back  to  this  CSU  after  any  of  those 
operations.  The  operator  can  elect  to  start  the  test,  which  passes  control  to  CSU- 
1.1.4,  Initial  Load  Factors.  Lastly,  the  operator  can  elect  to  end  the  program.  If  a 
configuration  change  has  been  made  that  was  not  previously  saved  using  CSC-1 .5, 
the  operator  is  asked  to  confirm  that  he  wants  the  program  ended.  If  the 
configuration  changes  were  saved  or  the  operator  confirms  that  he  wants  to  exit, 
control  is  passed  to  CSU-1.1.10,  Program  End. 

3.3. 1.4  CSU-1.1.4  Initial  Load  Factors:  The  load  values  are  initialized  to  zero,  and 
the  counters  are  reset  for  the  fatigue  test.  If  in  the  static  test  mode,  the  control  is 
passed  to  CSU*1.1.9,  Hold,  to  allow  the  operator  to  enter  the  next  load  point.  In 
the  fatigue  mode,  the  file  pointer  is  updated  and  the  next  load  point  is  determined 
from  the  spectrum,  the  various  loading  parameters  are  determined,  the  screen  is 
updated  with  the  information,  and  the  test  is  suspended  until  the  operator  confirms 
that  he  wants  the  test  to  be  started  at  that  point,  if  the  operator  elects  to 
continue,  control  is  passed  to  CSU-1.1.5,  Refresh  Screen,  if  he  elects  not  to 
continue,  control  is  passed  back  to  CSU-1.1.3,  Run  Menu.  CSC~1.3,  Pump 
Commands,  CSC-1.4,  Load  Commands,  and  CSC-1. 6,  Test  Conditions,  are  used  in 
this  CSU. 

3.3.1. 5  CSU-1.1.5  Refresh  Screen:  This  CSU  clears  the  screen,  then  displays  the 
load  information  for  a  static  test  or  spectrum  information  for  a  fatigue  test,  and 
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displays  instructions  for  the  operator  on  how  to  halt  the  test.  Control  is  then 
passed  to  CSU-1.1.6,  Compute  Load  Factors. 

3.3. 1.6  CSU-1.1.6  Compute  Load  Factors:  This  CSU  uses  the  load  point 
information  to  calculate  data  required  for  the  ramping  sequence.  See  Figure  3.4  for 
an  example  of  the  load  point  information.  Control  is  then  passed  to  CSU-1.1.7, 
Ramp. 

3.3.1 .7  CSU-1 .1 .7  Ramp:  This  CSU  is  where  the  actual  loading  of  the  test  element 
occurs.  An  incremental  load  point  is  determined  using  a  time-based  sine  function 
and  the  load  data  computed  in  CSU-1.1.6.  The  load  is  incremented  and  the  load 
feedback  is  read.  At  each  load  increment,  a  signal  is  sent  to  the  HP-1000  to 
trigger  a  data  scan  and  record  the  data  to  the  9-track  tape,  which  calls  CSU-1 .4.4, 
Scan-1  OOO.  If  the  load  feedback  is  not  within  tolerance  or  the  operator  has  entered 
a  key  on  the  keyboard,  control  is  passed  to  CSU-1. 1.9,  Hold.  If  the  pump  has 
dumped,  control  is  passed  to  CSU-1. 1.3,  Run  Menu.  If  the  load  point  has  been 
reached,  several  checks  are  made.  The  switches  on  the  counter  panel  (see  Figure 
1.1)  are  checked  to  see  if  the  operator  has  turned  'on*  the  switch  to  hold  at  a  peak 
or  valley  (see  Table  3.1 ),  in  which  case  the  control  is  passed  to  CSU-1 .1 .9,  Hold.  If 
the  operator  had  requested  a  zero  load  point,  a  switch  is  checked  to  see  if  the 
operator  wanted  the  pump  dumped,  in  which  case  the  pump  control  is  passed  to 
CSU-1 .1 .3,  Run  Menu.  If  neither  of  these  conditions  is  true,  then  control  is  passed 
to  CSU-1. 1.8,  Increment  Counters  for  a  fatigue  test,  or  CSU-1. 1.9,  Hold,  for  a 
static  test.  CSC-1.3,  Pump  Commands,  CSC-1.4,  Load  Commands,  and  CSC-1.6, 
Test  Conditions,  are  used  in  this  CSU. 
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3.3.1. 8  CSU-1.1.8  Increment  Counters:  This  CSU  is  only  used  during  a  fatigue 
test.  The  spectrum  pointer  is  incremented  and  the  load  value  is  read  from  the 
spectrum  file.  The  operator  switches  are  checked  when  the  spectrum  is  at  the  end 
of  a  flight  or  a  pass,  in  which  case  control  is  passed  to  CSU-1.1.5,  Refresh  Screen. 
Otherwise,  the  load  point  information  is  updated,  the  data  displayed  on  the  screen 
is  updated,  and  the  test  is  continued  by  passing  control  to  CSU-1.1.6,  Compute 
Load  Factors.  CSC-1 .6,  Test  Conditions,  is  used  in  this  CSU. 

3.3.1 .9  CSU-1 .1 .9  Hold:  Initially  this  CSU  clears  the  screen,  then  displays  the  load 
information  and  operator  instructions  on  the  screen.  The  load  feedback  is  read  and 
checked  to  be  sure  it  is  within  tolerance.  If  the  load  is  out  of  tolerance,  then  the 
pump  is  dumped,  and  control  is  passed  to  CSU-1. 1.3,  Run  Menu.  Otherwise,  this 
CSU  continues  to  monitor  the  load  until  the  operator  enters  a  key.  If  the  operator 
enters  an  inappropriate  key,  it  is  ignored,  and  the  load  is  again  monitored.  If  the 
load  point  is  zero,  the  operator  can  elect  to  return  to  the  main  menu,  CSU-1. 1.3, 
Run  Menu.  If  the  load  is  not  zero,  the  operator  can  elect  to  unload  the  test 
specimen,  and  control  Is  passed  to  CSU-1. 1.7,  Ramp.  During  a  fatigue  test,  the 
operator  can  elect  to  resume  the  test  where  It  was  stopped,  and  control  Is  passed 
to  CSU-1.1.5,  Refresh  Screen.  During  a  static  test,  the  operator  can  elect  to 
trigger  a  data  scan  with  the  HP-1000,  which  calls  CSU-1 .4.4,  Scan-1000,  then 
resumes  monitoring  the  load.  Also  during  a  static  test,  the  operator  can  elect  to  go 
to  a  new  load  point.  The  program  will  request  the  value  of  the  load  point,  check 
that  the  load  point  is  within  the  system  capacity,  then  passes  control  to  CSU-1.1.5, 
Refresh  Screen.  CSC-1 .3,  Pump  Commands,  CSC-1 .4,  Load  Commands,  and  CSC- 
1.6,  Test  Conditions,  are  used  in  this  CSU. 
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3.3.1.10  CSU-1.1.10  Program  End:  This  CSU  merely  clears  the  screen,  displays 

'Program  Ended....'  on  the  screen,  and  exits  the  program. 

3.3.2  CSC-1 .2  Variable  Definitions  (VAR_DEF):  This  library  module  holds  most  of 
the  constants  used  in  the  main  program  and  the  other  modules.  The  character 
strings  for  the  titles  and  menu  options  are  defined.  The  computer  addresses  for  the 
slots  of  the  multiprogrammer  are  defined  to  simplify  the  software,  for  example,  the 
address  for  slot  401  is  4096  (decimal).  The  typical  locations  of  the  individual  cards 
are  defined,  for  example  the  relay  output  card  is  given  as  usually  located  in  slot 
401.  Other  definitions  include  the  numerical  definition  of  n,  a  nominal  time 
increment  for  calibration  routines,  and  the  months  of  the  year.  All  of  the  ASCII 
characters  used  in  write  statements  to  move  the  cursor,  such  as  backspace,  up 
space,  etc.,  are  defined.  Note  that  ail  other  modules  will  require  this  module  for 
compiling  since  they  all  use  these  constants.  The  Pascal  TYPE  identifiers  are 
included  to  define  the  string  lengths  used  in  the  variable  declaration  statement. 
Since  the  purpose  of  this  library  module  is  to  define  constants,  there  are  no 
functions  or  procedures  in  this  module. 

3.3.3  CSC-1. 3  Pump  Commands  (PUMP_CMDS):  This  library  module  contains 
the  routines  to  set  the  relay  to  power-up  and  shut-down  the  hydraulic  power  supply, 
and  the  function  to  check  to  see  if  the  hydraulic  power  supply  is  running. 

3.3.3. 1  CSU-1.3.1  Procedure  Power-Up  (P0WER_UP):  This  procedure  performs  the 
steps  necessary  to  zero  the  load  output  then  close  a  relay  to  allow  the  operator  to 
power-up  the  hydraulic  power  supply. 
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3.3.3.2  CSU-1 .3.2  Function  Dumped  (DUMPED):  This  function  checks  a  relay  that 
signifies  if  the  pump  is  running. 

3.3.3.3  CSU-1. 3.3  Procedure  Dump  (DUMP):  This  procedure  opens  the  relay  tied 
to  the  hydraulic  power  supply  so  that  it  will  shut  down,  then  zeros  the  load  output 
to  prevent  any  possible  problems. 

3.3.4  CSC-1 .4  Load  Commands  (LOAD_CMDS):  This  library  module  contains  the 
procedures  to  convert  the  load  in  pounds  to  a  voltage  to  be  applied  to  the  Servac, 
to  read  the  feedback  voltage  and  convert  that  voltage  to  a  load,  to  continually  read 
the  feedback  voltage  for  calibrating  the  feedback  instrumentation,  and  to  send  a 
signal  to  the  HP-1000  to  read  the  load. 

3.3.4. 1  CSU-1 .4.1  Procedure  Output  Load  (OUTPUT_LOAD):  This  procedure 
converts  the  load  in  pounds  to  a  voltage,  then  converts  the  voltage  to  a  decimal 
representation  of  the  binary  word  required  for  the  digital-to-analog  voltage  output 
card. 

3.3.4.2  CSU-1 .4.2  Function  Load  (LOAD):  This  function  reads  the  A/D  card, 
converts  the  binary  value  to  a  decimal  voltage,  then  converts  the  voltage  to  a  load 
in  pounds. 

3.3.4.3  CSU-1 .4.3  Procedure  Calibrate  Load  (CAL_LOAD):  This  procedure 
constantly  reads  the  load  (using  the  function  Load),  and  writes  the  load  to  the 
screen  until  the  operator  enters  a  key  to  stop  the  operation.  This  is  required  so  that 
the  operator  can  fine-tune  the  load  feedback  Instrumentation. 
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3.3.4.4  CSU-1.4.4  Procedure  Scan-1000  (SCAN_1000):  This  procedure  closes  a 
relay  on  the  Relay  Output  card  which  will  signal  the  HP- 1000  computer  to  read  the 
test  data.  This  is  used  during  static  tests  where  the  HP-1000  is  used  to  read  the 
strain  gages.  Two  relays  are  used:  the  first  triggers  the  scan,  the  second  is  set  to 
signify  that  the  desired  load  point  is  reached.  During  this  type  of  test,  the  nine- 
track  tape  drive  (part  of  the  HP-1 000  computer)  records  all  of  the  loads  and  strains 
at  each  load  increment  in  the  event  of  a  failure  occurring  before  reaching  a  desired 
load  point.  The  desired  load  points  are  typically  in  5  or  1 0%  increments  of  the  test 
specimen's  design  limit  load.  When  the  desired  load  point  is  reached,  the  HP-1000 
is  signaled  to  print  the  load  and  strain  data  on  a  line  printer  to  be  reviewed  by  the 
operator.  If  the  loads  are  not  within  tolerance,  the  operator  can  fine-tune  the 

Servac  until  the  loads  are  acceptable,  at  which  time  the  test  can  proceed. 

% 

3.3.5  CSC-1.5  Test  Parameters  (TEST_PARM):  This  library  moduie  contains  the 

procedures  to  allow  the  operator  to  change  the  default  parameters,  and  to  save  the 
new  values  for  later  use.  The  module  also  allows  the  fatigue  test  to  be  started  at 
any  point  in  the  flight  spectrum,  and  executes  the  steps  required  to  end  the  test. 

3.3.5. 1  CSU-1.5.1  Procedure  Change  System  Parameters  (CHNG_SYST_PARAM): 
This  procedure  allows  the  operator  to  change  any  of  the  control  system  parameters. 

3.3.5.2  CSU-1.5.2  Procedure  Change  Test  Parameters  (CHNG_TEST_PARAM): 
This  procedure  allows  the  operator  to  change  the  loading  rate  and  the  load 
tolerance.  The  load  tolerance  is  the  allowable  difference  between  the  load  output 
and  the  load  feedback.  If  the  difference  is  greater  than  the  load  tolerance,  the  test 
is  halted. 
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3.3. 5. 3  CSU-1.5.3  Procedure  Number  of  Passes  (NUMBER_PASSES):  This 
procedure  allows  the  operator  to  input  the  number  of  passes  of  the  fatiQue  test 
spectrum.  The  fatigue  test  will  be  stopped  at  the  end  of  the  given  number. 

3.3.5.4  CSU-1.5.4  Procedure  Restart  (RESTART):  TWs  procedure  allows  the 
operator  to  restart  the  fatigue  test  at  any  point  in  the  spectrum. 

3.3.5. 5  CSU-1.5.5  Procedure  Read  Configuration  File  (READ_CONFIG):  This 
procedure  allows  the  operator  to  read  a  configuration  file  with  the  system 
parameters,  test  parameters,  and  the  calibration  delay  interval.  If  the  program  is  in 
the  fatigue  test  mode,  the  position  in  the  fatigue  test  spectrum  is  also  recorded. 
Default  file  names  are  provided  for  the  operator  to  simplify  operation,  and  it  is 
recommended  that  a  different  file  be  used  for  the  static  and  fatigue  test  modes 
since  the  test  parameters  are  typically  different  for  the  two. 

3.3.5. 6  CSU-1.5.6  Procedure  Write  Configuration  File  (WRITE_CONFIG):  This 
procedure  writes  the  configuration  file  described  in  3. 3. 5. 5  above. 

3.3.5.7  CSU-1.5.7  Function  Program  End  (PROGRAM_END):  This  function  verifies 
that  the  operator  wants  the  program  to  end,  and  in  addition,  if  the  configuration 
was  changed  during  the  run.  verifies  whether  the  operator  wants  to  save  the  new 
configuration.  This  is  particularly  important  when  in  the  fatigue  test  mode  since  the 
position  in  the  fatigue  test  spectrum  had  probably  changed. 

3.3.6  CSC-1 .6  Test  Conditions  {TEST_COND):  This  library  module  contains  the 
procedures  which  check  to  see  if  the  operator  has  set  any  of  the  switches  on  the 
panel  during  the  test.  The  module  also  has  the  procedures  necessary  to  operate  the 
electronic  counters  (see  Figure  1.1).  The  counters,  Waugh  Controls  Corporation 
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Minicounter  II,  Model  428R,  are  eight  digit  solid  state  electronic  pulse  counters,  and 
have  a  non-volatile  memory  when  connected  to  an  external  battery  back-up.  The 
counters  are  used  to  indicate  the  position  of  the  test  within  the  fatigue  test 
spectrum  so  that  recovery  can  be  made  in  the  event  of  a  power  loss.  The  counters 
are  wired  to  the  relay  output  card  of  the  multiprogrammer.  In  order  to  increment 
the  counter,  the  corresponding  relay  is  closed  for  approximately  five  milliseconds, 
then  opened.  The  counter  will  increment  when  the  relay  is  opened  (see  section  1.5 
for  more  information  on  the  counter).  There  are  also  connections  to  reset  the 
counters  to  zero.  The  zero  reset  connector  for  the  POINT  counter  is  wired  to  the 
increment  connection  of  the  RECORD  counter,  since  every  RECORD  starts  at  POINT 
=  1 .  Similarly,  the  zero  reset  connector  for  the  RECORD  counter  is  wired  to  the 
increment  of  the  PASS  counter,  since  every  PASS  starts  at  RECORD  =  1 . 

3.3.6. 1  CSU-1.6.1  Function  Switch  Set  (SWITCH_SET):  The  on-off  switches  on 
the  counter  panel  are  tied  to  the  event  sense  card.  This  function  returns  a  value  of 
True  if  the  switch  number  passed  with  the  function  is  On.  These  switches  are 
typically  checked  at  convenient  points  in  the  fatigue  test  spectrum.  For  example,  if 
the  operator  wants  the  test  to  be  halted  at  the  end  of  a  flight,  then  he  would  turn 
switch  one  On.  If  he  wants  the  test  to  hold  at  the  peak  load  to  fine-tune  the 
system,  then  he  would  turn  switch  five  On.  The  hydraulic  power  supply  is  hard 
wired  as  switch  number  six,  and  is  checked  with  CSU-1.3.2,  Function  Dumped. 
See  Table  3.1  for  the  definition  of  switch  positions. 

3. 3.6. 2  CSU-1 .6.2  Procedure  Close  Relay  (CLOSE_RELAY):  This  procedure  closes 
the  relay  for  the  counter  passed  to  the  procedure.  Since  the  interlock  for  the 
hydraulic  power  supply  is  hard  wired  to  the  seventh  relay,  this  function  also  ensures 
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that  this  relay  stays  closed.  Therefore,  two  relays  are  closed  with  this  function, 
both  the  relay  number  passed  by  the  procedure  and  the  hydraulic  power  supply 
relay. 

3.3.6.3  CSU-1 .6.3  Procedure  Open  Relay  (OPEN_RELAY):  This  procedure  opens 
all  relays  except  for  the  interlock  relay  for  the  hydraulic  power  supply. 

3.3.6.4  CSU-1 .6.4  Procedure  Zero  Counters  (ZERO_COUNTERS):  This  procedure 
resets  all  of  the  counters  to  zero  without  opening  the  interlock  relay  for  the 
hydraulic  power  supply. 

3.3.6. 5  CSU-1 .6.5  Procedure  Reset  Counters  (RESET_COUNTERS):  This 
procedure  will  zero  the  counters,  then  increment  the  counters  to  the  desired  point  In 
the  fatigue  test  spectrum. 

3.3.6.5  CSU-1. 6.6  Procedure  Increment  Counters  (INCR_COUNTER):  This 

procedure  increments  the  desired  counter. 
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3.4  CSCI-2  Design  Description 

This  section  provides  a  description  of  each  CSC  and  CSU  for  CSCI-2. 

3.4.1  CSC-2.1  Program  Chock  Pump  Commands  (HSWR_CHECK_PUMP_CMDS): 
This  program  verifies  the  three  CSU's  from  the  Pump  Commands  library  module, 
CSC-1.3,  which  is  described  in  3.3.3  above.  This  CSC  has  one  CSU  that  executes 
the  Pump  Commands  CSU's,  the  Check  Pump  Commands  Program  Executive. 

3.4. 1.1  CSU-2.1.1  Check  Pump  Commands  Program  Executive:  This  program 
displays  instructions  for  the  operator  and  the  status  of  the  pump  by  calling  CSU- 
1.3.2,  Function  Dumped.  If  the  operator  enters  'P'  to  power  up  the  pump,  the 
program  calls  CSU-1.3.1,  Procedure  Power-Up.  If  the  operator  enters  'D*  to  dump 
the  pump,  the  program  calls  CSU-1.3.3,  Procedure  Dump.  If  the  operator  enters 
any  other  key,  the  program  is  ended. 

3.4.2  CSC-2.2  Program  Check  Load  Commands  (HSWR_CHECK_LOAD_CMDS): 

This  program  verifies  the  four  CSU's  from  the  Load  Commands  library  module,  CSC- 
1 .4,  which  is  described  in  3.3.4  above.  This  CSC  has  one  CSU  that  executes  the 
Load  Commands  CSU's,  the  Check  Load  Commands  Program  Executive.  A  cable  is 
required  to  jumper  the  D-to-A  to  the  A-to-D  cards  on  the  multiprogrammer.  This 
cable  simulates  the  feedback  signal  by  sending  the  output  voltage  for  the  load 
command  directly  into  the  card  that  reads  the  input  voltage. 

3.4.2. 1  CSU-2.2.1  Check  Load  Commands  Program  Executive:  This  program  starts 
by  requesting  the  operator  to  enter  the  maximum  test  load,  in  pounds,  for  the 
actuator  and  the  full  scale  voltage  for  the  feedback  circuit.  After  the  entry  is  given, 
the  screen  is  cleared,  the  input  parameters  are  displayed,  and  the  operator  is 
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requested  to  enter  the  load  he  would  like  the  computer  to  ramp  to.  When  the 
operator  enters  a  load,  the  program  ramps  to  that  load,  displaying  the  command 
signal  and  feedback  signal  as  it  goes.  CSU-1.4.1  Procedure  Output  Load  is  called 
to  verify  the  procedure  to  output  the  load.  CSU-1.4.2  Function  Load  is  called  to 
verify  the  procedure  to  read  the  load  feedback.  When  the  program  reaches  the  load 
point,  the  feedback  signal  is  continually  updated  until  the  operator  enters  a  new 
load  point,  at  which  time  the  program  again  ramps  to  that  load  point.  In  order  to 
change  the  input  parameters,  the  operator  enters  ’-99'  for  a  load  point,  the 
operator  can  enter  the  calibration  routine,  which  verifies  the  operation  of  CSU- 
1.4.3,  Procedure  Calibrate  Load.  The  operator  can  elect  to  send  a  signal  to  the 
HP-1000  to  trigger  a  data  scan  and  record  the  data  to  the  9-track  tape,  or  to  send 
a  signal  to  the  HP-1000  to  scan  and  print  the  data,  which  verifies  the  operation  of 
CSU-1.4.4,  Procedure  Scan-1000.  Lastly,  the  operator  can  elect  to  end  the 
program. 

3.4.3  CSC-2.3  Program  Check  Test  Parameter  Routines 
(HSWR_CHECK_TEST_PARM):  This  program  verifies  the  seven  CSU’s  from  the 
Test  Parameter  library  module,  CSC-1.5,  which  is  described  in  3.3.5  above,  and  the 
menu  section  of  the  test  executive,  CSU-1.1.3  Run  Menu,  which  is  described  in 

3.3. 1.3  above.  This  CSC  has  one  CSU  that  executes  the  Test  Parameter  library 
module  CSU's,  the  Check  Test  Parameter  Program  Executive. 

3.4.3. 1  CSU-2.3.1  Check  Test  Parameter  Program  Executive:  The  menu  section  of 
the  Test  Executive  (CSU-1.1.3)  was  utilized  for  this  program  executive,  and  was 
modified  only  where  required.  There  are  only  three  significant  differences  between 
this  CSU  and  CSU-1.1.3.  One,  if  the  operator  elects  to  power  up  the  pump,  the 
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program  states  that  this  procedure  is  verified  in  the  Check  Pump  Commands 
program.  Two,  if  the  operator  elects  to  calibrate  the  load  reading,  the  program 
states  that  this  procedure  is  verified  in  the  Check  Load  Commands  program.  Three, 
all  calls  to  CSU-1.3.2,  Function  Dumped,  are  commented  out.  Otherwise,  the  Test 
Parameter  CSU's  are  verified  when  the  operator  selects  the  appropriate  menu  item. 
For  example,  CSU-1.5.2,  Procedure  Change  Test  Parameters,  is  verified  when  the 
operator  selects  menu  item  *3',  and  CSU-1 .5.4,  Procedure  Restart,  is  verified  when 
the  operator  selects  menu  item  *9'. 

3.4.4  CSC-2.4  Program  Check  Switches  (HSWR  CHECK  SWITCHES):  This 
program  verifies  the  Functions  Dumped,  CSU*1.3.2,  and  Switch  Set,  CSU-1 .6.1, 
which  are  described  in  3. 3. 3.2  and  3.3.6. 1  above,  respectively.  This  program  also 
verifies  the  hardware  connections  on  the  counter  panel  as  described  in  3.3. 1.7 
above.  This  CSC  has  one  CSU,  the  Check  Switches  Program  Executive. 

3.4.4. 1  CSU-2.4.1  Check  Switches  Program  Executive:  This  program  continually 
displays  the  status  of  the  six  switches  and  the  pump  circuit.  As  the  operator 
changes  the  state  of  the  switches  or  pump  circuit,  the  screen  should  reflect  that 
change.  The  program  ends  when  the  operator  enters  any  key. 

3.4.5  CSC-2.5  Program  Check  Counters  (HSWR_COUNTER_CHECK):  This 
program  verifies  the  five  CSU's  from  the  Test  Conditions  library  module  pertaining 
to  the  battery-backup  counters  on  the  counter  panel,  namely  CSU-1. 6. 2  through 
CSU-1. 6.6  described  in  3.3.6.2  through  3.3.6. 6  above.  CSU-1. 6.1,  Switch  Set,  is 
verified  in  CSC-2.4  described  in  3.4.4  above.  This  program  also  verifies  the 
hardware  connections  to  the  counters.  This  CSC  has  two  CSU's,  Procedure  Restart 
Module  and  Check  Counters  Program  Executive. 
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3.4.5. 1  CSU*2.5.1  Procedure  Restart  Module  (RESTART_MOD_HSWRCC):  The 
purpose  of  this  procedure  is  to  query  the  operator  for  a  startirig  position  in  the 
fatigue  spectrum,  and  to  pass  those  values  back  to  the  program  executive. 

3.4.5. 2  CSU-2.5.2  Check  Counters  Program  Executive:  The  program  first  resets  ail 
counters  to  zero  to  verify  the  operation  of  CSU*1 .6.4,  Zero  Counters.  Next,  it  asks 
the  operator  which  counter  to  Increment.  This  checking  routine  will  verify  the  four 
counters  on  the  counter  panel:  however,  only  three  are  used  for  the  High  Strain 
Wing  Repair  fatigue  test.  CSU-1 .6.6,  Increment  Counter,  is  verified  at  this  time, 
which  also  calls  CSU-1 .6.2,  Close  Relay,  and  CSU-1. 6.3,  Open  Relay.  Close  Relay 
and  Open  Relay  are  not  called  in  this  program  executive  directly,  they  are  verified 
based  on  the  call  to  Increment  Counter.  If  the  operator  elects  to  reset  ail  counters 
to  simulate  starting  a  fatigue  test  in  the  middle  of  the  spectrum,  the  program  first 
calls  CSU-2.5.1,  Restart  Module,  to  determine  the  starting  point,  then  increments 
the  counters  to  that  point  to  verify  the  operation  of  CSU-1. 6. 5,  Reset  Counters. 
There  are  several  instances  where  CSU-1 .6.1,  Switch  Set,  is  called  in  both  the 
program  executive  and  the  CSU's  from  CSC-1.6.  This  is  to  cause  a  delay  to  allow 
the  relays  to  close  and  the  counter  to  increment.  Without  these  calls,  the  relays 
would  not  remain  closed  long  enough  for  the  counter  to  recognize  the  closure.  The 
number  of  calls  is  determined  through  trial  and  error.  A  time-based  delay  could 
have  been  used  and  may  have  been  more  efficient  but  would  have  required  several 
lines  of  code.  Instead,  a  dummy  variable  was  created  and  Switch  Set  is  called 
which  only  takes  one  line  of  code.  The  state  returned  by  Switch  Set,  i.e.  TRUE  or 
FALSE,  is  not  used. 
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3.4.6  CSC-2.6  Program  Check  Display  (HSWR_CHECK_D1SPLAY):  This  program 

verifies  the  CSU*s  of  the  Test  Executive,  CSC-1.1,  concerning  the  CRT  screen, 
namely  Refresh  Screen,  CSU-1.1.5,  Ramp,  CSU*1.1.7,  Increment  Counters,  CSU- 
1.1.8,  and  Hold,  CSU-1.1.9.  This  CSC  has  one  CSU,  the  Check  Display  Program 
Executive. 

3.4.6. 1  CSU'2.6.1  Check  Display  Program  Executive:  This  program  was  taken 
directly  from  the  appropriate  sections  of  the  Test  Executive  (CSC-1.1),  and  modified 
only  where  required  to  run  as  a  stand  alone  program.  Those  lines  of  code  that  were 
added  or  commented  out  are  identified  to  simplify  reinstalling  the  code  from  this 
CSU  into  the  test  executive.  The  test  executive  CSU's  are  executed  in  the  same 
order  that  they  are  executed  in  CSCI-1 . 
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Notes: 


Table  3.1  -  Counter  Panel  Switch  Definitions 


Switch  0 

Stop  at  End  of  Pass 

Switch  1 

Stop  at  End  of  Flight 

Switch  2 

Dump  Pump  After  Stopping 

Switch  3 

Not  Used 

Switch  4 

Hold  at  Peak 

Switch  5 

Hold  at  Valley 

-  The  switches  are  applicable  only  during  a  fatigue  test. 

-  Switch  2  is  applicable  only  if  Switch  1  or  2  is  set. 
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Figure  3.1.  CSCI-1  Test  Program 
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Figure  3.2.  CSCI-2  Test  Program 


Figure  3.3a.  Static  Test  States 


Figure  3.3b.  Fatigue  Test  States 
Figure  3.3.  CSCI-1  Program  Architecture 
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4.0  SOFTWARE  USER'S  GUIDE 

This  Software  User's  Guide  provides  the  instructions  necessary  to  operate  the  High 
Strain  Wing  Repair  (HSWR)  Test  Software  and  Verification  Software. 

4.1  Overview 

An  auto-start  routine  has  been  written  specifically  for  the  HSWR  test.  This  routine 
automatically  loads  the  operating  system  files  and  the  fatigue  spectrum,  and 
executes  the  HSWR  test  program  without  any  input  required  from  the  operator 
other  than  swapping  floppy  disks  at  the  proper  time. 

The  program  itself  is  menu  driven  to  simplify  operation.  The  software  driving  the 
menus  will  not  allow  an  invalid  entry  by  the  operator  in  order  to  prevent  program 
errors.  The  software  will  allow  either  upper  or  lower  case  as  a  response.  For 
example,  a  menu  that  shows  'D'  as  an  acceptable  response,  will  also  accept 'd'  as 
well. 

When  the  operator  exits  the  HSWR  program,  he  can  initiate  the  validation  routines 
by  following  the  directions  in  section  4.3  below.  These  validation  routines  are  also 
menu  driven,  using  the  same  guidelines  as  mentioned  above. 

No  knowledge  of  the  operating  system  is  required  of  the  operator.  If  the  HSWR 
program  or  validation  routines  require  modification,  then  the  operator  must  have 
some  familiarity  with  the  operating  system,  editor,  compiler,  file  manager,  and 
system  librarian.  It  is  beyond  the  scope  of  this  document  to  explain  the  procedures 
to  modify  the  programs. 
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The  following  floppy  are  disks  associated  with  the  HSWR  test: 

DAL40  -  This  disk  contains  the  text  and  compiled  versions  of  the  HSWR 
program,  the  configuration  files,  and  the  compiled  versions  of  the  library 
modules.  This  disk  is  used  to  edit  and  run  the  HSWR  program. 

DAL41  -  This  disk  contains  the  text  and  compiled  versions  of  the  library 
modules.  This  disk  is  for  editing  and  compiling  the  individual  library  modules. 

DAL42  -  This  disk  contains  the  text  and  compiled  versions  of  the  validation 
routines.  This  disk  is  for  developing,  editing,  compiling,  and  running  the 
validation  routines. 

DAL43  -  This  disk  contains  the  HSWR  fatigue  spectrum,  WS125. 

DAL44  •  This  disk  is  the  boot  disk  with  the  auto-start  file  to  load  the  operating 
system  and  the  fatigue  spectrum,  and  to  execute  the  HSWR  program.  Note 
that  this  disk  requires  the  3  "  floppy  disk  labeled  HSWRBT  be  inserted  in  tha 
HP-9122  Disk  Drive,  drive  0.  This  software  will  also  request  the  operator  to 
install  DAL40  in  the  HP-9826  disk  drive. 


4.2  CSCI-1  Test  Software  Execution  Procedures 

4.2.1  Startup  Procedures 

Turn  on  the  power  to  the  HP-9122  Disk  Drive  and  insert  the  3%"  floppy  disk 
labeled  HSWRBT  In  drive  0.  Insert  the  5 ’74"  floppy  disk  labeled  DAL44  into  the  HP- 
9826  (there  is  only  one  disk  drive  on  the  HP-9826)  and  turn  the  power  on.  The 
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screen  will  flash  several  messages  as  the  HP-9826  performs  a  memory  check,  loads 
the  operating  system,  and  executes  the  auto-start  routine  that  will  load  various  files 
required  for  the  HSWR  test  software. 

Because  the  required  files  would  not  fit  on  one  3%"  and  one  5%"  floppy,  an 
additional  floppy  disk  was  required.  The  auto-start  routine  will  halt,  and  prompt  the 
operator  to  remove  DAL44  from  the  HP-9826  disk  drive,  install  DAL40  in  the  HP- 
9826  disk  drive,  and  enter  ’X’,  as  shown  in  Figure  4.1.  At  this  point,  the  HP-9826 
will  load  the  HSWR  test  program  into  memory,  and  start  the  execution. 

4.2.2  Main  Menu  Procedures 

When  the  program  is  started,  the  first  screen  displayed  is  the  main  menu  shown 
Figure  4.2.  The  program  defaults  to  the  fatigue  test  mode,  as  indicated  by  the  title 
at  the  top  of  the  screen.  The  program  is  waiting  for  the  operator  to  enter  a  request 
(Note:  the  Return  key  is  not  required).  Any  key  other  than  the  valid  numbers 
shown  on  the  screen  will  be  ignored. 

The  first  available  option,  'O’,  toggles  the  program  mode  between  the  fatigue  test 
mode  and  static  test  mode,  as  shown  in  Figure  4.3.  The  current  mode  is  always 
displayed  In  the  title  at  the  top  of  the  screen,  and  the  menu  indicates  to  enter  'O'  to 
change  to  the  other  mode. 

The  next  option,  '1',  reads  a  configuration  file.  The  program  will  request  the  name 
of  the  configuration  file  to  be  read,  as  shown  in  Figure  4.4.  The  program  assumes 
that  the  required  disk  is  in  the  HP-9826  floppy  disk  drive.  The  operator  is  only 
required  to  enter  the  filename  with  no  volume  label  or  extension.  The  program 
automatically  appends  the  extension  .TXT.  In  the  static  test  mode  the  default  file 
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is  HSWRSCFG.  as  shown  in  Figure  4.4.  In  the  fatigue  test  mode  the  default  file  is 
HSWRFCFG,  as  shown  in  Figure  4.5.  If  the  requested  filename  that  is  not  available 
or  unreadable  on  the  floppy  disk,  an  error  statement  is  displayed  as  shown  in  Figure 
4.6,  and  the  main  menu  will  be  displayed  after  the  operator  enters  any  key. 
Consult  the  HP  Pascal  User's  Guide  for  an  explanation  of  the  /Oresu/t. 

The  next  option,  *2',  changes  the  system  parameters.  The  menu  for  changing  the 
system  parameters  is  shown  in  Figure  4.7.  To  change  the  design  limit  load  for  the 
test,  the  operator  must  enter  'D'.  The  program  will  request  the  operator  to  enter 
the  new  design  limit  load,  as  shown  in  Figure  4.8.  After  the  operator  enters  the 
new  value,  the  test  ultimate  load  is  recalculated  (150%  of  the  design  limit  load), 
and  the  system  parameters  menu  is  shown  again  with  the  updated  values.  To 
change  the  maximum  load  for  the  load  control  system,  the  operator  must  enter  'M'. 
The  program  will  request  the  operator  to  enter  the  new  maximum  test  load,  as 
shown  in  Figure  4.9.  After  the  operator  enters  the  new  value,  the  new  maximum 
test  load  in  percent  of  test  ultimate  load,  the  servac  span  setting,  and  the  load 
resolution  (i.e.  the  least  significant  bit  in  terms  of  load  in  pounds)  are  recalculated, 
and  the  system  parameters  menu  is  shown  again  with  the  updated  values.  To 
change  the  full  scale  voltage  for  the  feedback  system,  the  operator  must  enter  'V. 
The  program  will  request  the  operator  to  enter  the  new  voltage  value  representing 
10  volts  full  scale,  as  shown  in  Figure  4.10.  After  the  operator  enters  the  new 
value,  the  resolution  is  recalculated  and  the  system  parameters  menu  is  shown 
again  with  the  updated  values.  The  operator  must  enter  Space  to  exit  the  system 
parameters  menu  and  return  to  the  main  menu. 
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The  next  option,  *3’,  changes  the  test  parameters.  The  menu  for  changing  the  test 
parameters  is  shown  in  Figure  4.1 1.  To  change  the  loading  rate,  the  operator  must 
enter  'L*.  The  program  will  request  the  operator  to  enter  the  new  loading  rate,  as 
shown  in  Figure  4.12.  To  change  the  load  tolerance,  the  operator  must  enter  T  . 
The  program  will  request  the  operator  to  enter  the  new  load  tolerance,  as  shown  in 
Figure  4.13.  The  operator  must  enter  Space  to  exit  the  test  parameters  menu  and 
return  to  the  main  menu. 

The  next  option,  '4',  writes  a  configuration  file.  The  program  will  request  the 
name  of  the  configuration  file  to  be  written,  as  shown  in  Figure  4.14.  The  program 
assumes  that  a  disk  is  already  loaded  in  the  HP-9826  floppy  disk  drive.  As  with  the 
procedure  to  read  a  configuration  file,  the  operator  is  only  required  to  enter  the 
filename  with  no  volume  label  or  extension;  the  program  automatically  appends  the 
extension  .TXT.  In  the  static  test  mode  the  default  file  is  HSWRSCFG.  as  shown  In 
Figure  4.14.  In  the  fatigue  test  mode  the  default  file  is  HSWRFCFG,  as  shown  in 
Figure  4.1 5.  If  an  error  results  from  the  request,  the  error  statement  is  displayed  as 
shown  in  Figure  4.16,  and  the  main  menu  will  be  displayed  after  the  operator  enters 
any  key.  Consult  the  HP  Pascal  User's  Guide  for  an  explanation  of  the  /Oresutt. 

The  next  option,  '5',  sets  the  relay  to  allow  the  hydraulic  power  supply  to  bo 
started.  Function  Dumped  (CSU-1.3.2,  see  section  3.3.3.2)  is  called  every  time 
that  the  main  menu  is  'refreshed'.  If  Function  Dumped  returns  a  value  of  False, 
meaning  that  the  pump  is  not  running,  then  the  menu  will  write  that  option  '5'  is  to 
power  up  the  pump,  as  shown  In  Figures  4.2  and  4.3.  If  Function  Dumped  returns 
a  value  of  True,  the  menu  will  leave  the  option  for  '5'  blank,  as  shown  In  Figures 
4.17  and  4.18  for  the  fatigue  and  static  test  modes,  respectively.  Therefore,  any 
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time  a  key  is  entered,  even  if  it  is  not  a  valid  response,  the  menu  is  updated 
depending  on  the  status  of  the  pump.  If  the  operator  starts  the  pump,  yet  the 
menu  still  shows  option  '5'  is  to  start  the  pump  as  in  Figure  4.2  or  4.3,  the  operator 
can  update  the  menu  by  simply  entering  a  Space  key. 

The  next  option,  '6’,  runs  the  load  calibration  routine.  The  program  will  continually 
display  the  load  feedback,  as  shown  in  Figure  4.19.  To  change  the  delay  in 
updating  the  feedback,  the  operator  must  enter  ’D*.  The  program  will  request  the 
operator  to  enter  the  delay,  as  shown  in  Figure  4.20  (note:  if  the  delay  is  too  short, 
the  numbers  will  change  so  fast  the  operator  will  not  be  able  to  read  them).  Once 
the  operator  has  entered  a  new  delay,  the  program  will  continue  with  the  calibration 
routine,  as  shown  in  Figure  4.19.  If  the  operator  enters  any  key  other  than  'D',  the 
program  will  exit  the  calibration  routine  and  return  to  the  main  menu. 

The  next  option,  ’7’,  ends  the  program.  First,  the  program  will  check  if  a 
configuration  change  has  been  made  or  the  fatigue  spectrum  pointer  has  been 
changed  without  saving  the  changes  to  a  configuration  file.  If  no  changes  had  been 
made,  the  program  will  end,  showing  the  Pascal  operating  system  command  line,  as 
shown  in  Figure  4.21.  Otherwise,  If  the  program  is  in  the  static  test  mode.  Figure 
4.22  is  displayed  to  warn  the  operator.  If  the  operator  enters  ’N',  the  program 
returns  to  the  main  menu.  If  the  operator  enters  ’Y*,  the  program  will  end,  showing 
the  Pascal  operating  system  command  line,  as  shown  in  Figure  4.23.  If  the 
program  is  In  the  fatigue  test  mode.  Figure  4.24  is  displayed  to  warn  the  operator. 
Again,  if  the  operator  enters  ’N’,  the  program  returns  to  the  main  menu,  and  if  the 
operator  enters  'Y',  the  program  will  end,  showing  the  Pascal  operating  system 
command  line,  as  shown  in  Figure  4.25. 
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The  next  option,  '8',  changes  the  number  of  passes  to  be  run  for  a  fatigue  test. 
The  program  will  ask  the  operator  to  enter  the  number  of  passes,  as  shown  in 
Figure  4.26.  After  the  operator  has  entered  a  value,  the  program  will  return  control 
to  the  main  menu,  and  display  the  value  as  shown  in  Figure  4.17.  Until  either  a 
value  is  entered  by  the  operator  or  read  from  a  configuration  file,  the  menu  will  not 
show  a  value  for  the  total  number  of  passes,  as  shown  In  Figure  4.2.  While  In  the 
static  test  mode,  this  option  is  blank,  as  shown  in  Figure  4.3. 

The  next  option,  *9’,  starts  the  test.  This  option  is  displayed  only  when  the  pump  is 
running,  as  shown  in  Figures  4.17  and  4.18  for  the  fatigue  and  static  test  modes, 
respectively.  The  program  will  continue  with  the  static  or  fatigue  test,  as  described 
in  4.2.3  and  4.2.3,  respectively. 

4.2.3  Static  Test  Procedures 

The  program  will  hold  at  a  zero  load,  as  shown  in  Figure  4.27,  and  wait  for  the 
operator  to  respond.  If  the  operator  enters  *S'  for  a  data  scan,  a  signal  Is  sent  to 
the  HP- 1000  to  read  the  test  data  and  print  the  data  to  the  line  printer  (see 
3.3.4.4).  The  screen  on  the  HP-9826  will  not  change  during  this  sequence.  If  the 
operator  enters  'M',  the  program  will  return  to  the  main  menu  (see  4.2.2  for  the 
main  menu).  This  option  only  appears  when  the  load  point  is  zero.  If  the  operator 
enters  ‘L*  for  the  next  load  point,  the  program  asks  the  operator  to  enter  the  new 
load  In  percent  of  design  limit  load,  as  shown  In  Figure  4.28.  If  the  operator  enters 
an  invalid  character,  the  program  will  ask  the  operator  to  try  again,  as  shown  In 
Figure  4.28.  If  the  operator  enters  a  value  that  is  greater  than  the  capacity  of  the 
load  control  system,  the  program  informs  the  operator  and  asks  the  operator  to  try 
again,  as  shown  in  Figure  4.29. 
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When  a  valid  load  point  has  been  entered,  the  program  updates  the  screen,  as 
shown  in  Figure  4.30,  and  begins  ramping  to  that  point.  The  feedback  is 
continually  updated  as  the  load  is  increased.  When  the  load  point  is  reached,  the 
load  is  held  and  the  screen  is  updated,  as  shown  in  Figure  4.31.  The  absolute 
difference  and  percent  difference  is  given  to  assist  the  operator  in  fine-tuning  the 
load  control  system.  These  values  are  not  shown  when  the  load  point  is  zero  since 
the  absolute  difference  is  equal  to  the  feedback  in  that  case.  The  only  other 
difference  between  Figures  4.27  and  4.31  is  that,  because  the  load  point  is  non¬ 
zero,  the  option  to  return  to  the  menu  is  not  there,  and  the  operator  can  enter  'U*  to 
unload  to  zero.  The  operator  could  simply  enter  ’L*  followed  by  *0'  to  unload  the 
test  article,  but  the  option  to  unload  to  zero  by  entering  'U*  is  given  In  the  event  of 
a  problem  to  quicken  the  operator's  response  time. 

If  the  operator  enters  a  key  to  halt  the  test  while  the  program  is  ramping  to  a  load 
point,  the  program  will  immediately  halt  the  test,  redefine  the  load  point  as  the  load 
at  that  exact  instant,  and  update  the  screen  as  shown  In  Figure  4.31.  For  example. 
If  the  program  is  ramping  from  10%  design  limit  load  to  20%,  yet  the  operator 
enters  a  key  when  the  program  is  at  13.7%,  the  load  point  of  20%  Is  ignored,  and 
the  load  point  is  defined  as  13.7%.  The  program  then  follows  the  same  logic  as 
described  above  for  Figure  4.31 . 

If  the  load  feedback  is  outside  the  load  tolerances,  the  test  will  be  halted 
immediately,  the  pump  is  dumped,  and  the  load  is  quickly  ramped  to  zero.  The 
operator  is  informed  of  a  positive  or  negative  overload,  as  shown  in  Figure  4.32, 
and  the  program  waits  for  the  operator  to  respond.  After  the  operator  enters  any 
key,  the  program  will  return  to  the  main  menu  (see  4.2.2  for  the  main  menu). 
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If  the  pump  dumps  during  the  test,  the  program  will  be  halted  and  the  operator  is 
informed  of  the  condition,  as  shown  in  Figure  4.33,  then  program  waits  for  the 
operator  to  respond.  After  the  operator  enters  any  key,  the  load  is  ramped  to  zero 
and  the  program  will  return  to  the  main  menu. 

Note  that  when  the  program  is  holding,  waiting  for  the  operator  to  respond,  the  load 
feedback  is  checked  to  be  certain  that  it  is  within  tolerances  and  the  pump  is  check 
to  be  certain  it  hasn't  dumped.  The  only  time  this  isn't  true  is  when  the  program  is 
asking  the  operator  for  the  next  load  point. 

4.2.4  Fatigue  Test  Procedures 

Initially,  the  program  verifies  the  position  of  the  fatigue  test.  The  default  position  is 
Pass,  Flight,  and  Point  *=  1 ,  as  shown  in  Figure  4.34.  Note  that  if  the  operator  had 
read  a  configuration  file  with  a  different  fatigue  test  starting  position,  that  position 
would  be  reflected  on  this  screen.  At  this  point,  the  program  is  waiting  for 
verification  of  the  position  of  the  fatigue  test  from  the  operator.  If  the  operator 
enters  'N',  the  operator  is  queried  for  the  starting  point,  as  shown  in  Figure  4.35. 
Note  that  in  this  figure,  values  of  3,  155,  and  7  have  already  been  entered  by  the 
operator  for  the  pass,  flight,  and  pointer,  respectively.  After  entering  the  values, 
the  operator  again  is  asked  to  verify  the  position  of  the  fatigue  test,  with  the  new 
values  displayed,  as  shown  In  Figure  4.36.  If  the  operator  enters  'N'  again,  the 
query  cycle  is  repeated.  If  the  operator  enters  'Y',  the  programs  continues.  If  the 
fatigue  test  position  has  been  changed,  then  the  electronic  counters  and  the 
spectrum  file  pointer  must  be  updated,  which  can  take  a  several  seconds.  The 
program  displays  notes  as  these  functions  are  being  performed,  as  shown  In  Figures 
4.37  and  4.38,  to  inform  the  operator  of  the  delay. 
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When  the  program  is  ready  to  start  the  test,  the  program  displays  the  fatigue  test 
position,  and  the  corresponding  spectrum  value  in  percent  of  design  limit  load  and  in 
pounds,  as  shown  in  Figure  4.39.  The  corrected  value  is  an  8%  increase  in  the 
positive  loads  orily.  The  program  also  displays  the  load  feedback.  The  feedback  is 
continually  updated  until  the  operator  enters  a  request.  If  the  operator  does  not 
want  to  start  at  this  point,  then  the  operator  can  enter  'M*  to  return  to  the  main 
menu  (see  4.2.2  for  the  main  menu).  Otherwise,  entering  any  key  starts  the  test. 

Once  the  test  is  started,  the  screen  is  continually  updated  with  the  spectrum  point, 
the  spectrum  value  in  design  limit  load  and  in  pounds,  and  the  feedback,  as  shown 
in  Figure  4.40.  At  this  point,  the  program  will  run  unattended.  The  screen  is 
updated  to  keep  the  operator  informed  of  the  status.  Several  conditions  can  stop 
the  test. 

The  operator  can  halt  the  test  at  any  time  by  entering  any  key.  The  load  is  held  at 
exactly  the  point  the  test  was  stopped,  as  shown  in  Figure  4.41.  If  the  operator 
enters  a  *C',  the  fatigue  test  will  continue  from  the  point  is  was  stopped.  If  the 
operator  enters  a  'U',  the  program  will  ramp  to  zero  load,  as  shown  in  Figure  4.42. 
The  operator  can  halt  the  ramp  to  zero  by  entering  any  key,  and  the  program  will 
again  display  a  screen  as  shown  in  Figure  4.41.  Upon  reaching  a  zero  load,  the 
program  holds  at  zero  and  waits  for  an  operator  response,  as  shown  in  Figure  4.43. 
If  the  operator  enters  a  'C,  the  program  will  continue  to  the  next  point  in  the 
fatigue  test  spectrum.  If  the  operator  enters  a  'M',  the  main  menu  will  be  displayed 
(see  4.2.2  for  the  main  menu). 

If  the  load  feedback  is  outside  the  load  tolerances,  the  test  will  be  halted 
immediately,  the  pump  is  dumped,  and  the  load  is  quickly  ramped  to  zero.  The 
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operator  is  informed  of  a  positive  or  negative  overload,  as  shown  in  Figure  4.44, 
and  the  program  waits  for  the  operator  to  raspond.  After  the  operator  enters  any 
key,  the  program  will  return  to  the  main  menu. 

If  the  pump  dumps  during  the  test,  the  program  will  be  halted  and  the  operator  is 
informed  of  the  condition,  as  shown  in  Figure  4.45,  then  program  waits  for  the 
operator  to  respond.  After  the  operator  enters  any  key,  the  load  is  ramped  to  zero 
and  the  program  will  return  to  the  main  menu. 

If  the  operator  sets  switch  'O'  or  '1'  to  On,  the  program  will  halt  at  a  the  end  of  a 
pass  or  flight,  respectively.  If  switch  '2'  is  Off,  the  program  will  enter  the  same 
hold  pattern  as  described  above  for  Figure  4.41 .  if  switch  *2'  is  On,  the  program 
will  ramp  the  load  to  zero,  dump  the  pump,  and  inform  the  operator,  as  shown  in 
Figure  4.46,  then  wait  for  the  operator  to  respond.  After  the  operator  enters  any 
key,  the  program  will  return  to  the  main  menu.  This  is  useful  for  running  the  test 
unattended,  at  night  for  example,  but  ensuring  that  the  test  is  stopped  at  an 
appropriate  interval  for  inspection  or  calibration. 

If  the  operator  sets  switch  '5'  or  '6'  to  On,  the  program  will  halt  at  a  peak  or  valley, 
respectively.  The  program  will  enter  the  same  hold  pattern  as  described  above  for 
Figure  4.41 .  This  is  useful  for  checking  the  accuracy  of  the  load  control  system. 

Lastly,  the  program  will  stop  when  the  test  reaches  the  end  of  the  pass 
corresponding  to  the  number  of  total  passes.  The  program  will  be  halted,  the  load 
ramped  to  zero,  the  pump  dumped,  and  the  program  will  return  to  the  main  menu. 
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4.2.5  Restart 

After  the  program  has  been  ended,  and  control  has  passed  to  the  Pascal  operating 
system,  the  operator  can  restart  the  test  program  by  entering  'R*.  This  is  still  true 
even  if  any  of  the  software  verification  programs,  below,  have  been  executed. 


4.3  CSCI-2  Verification  Software  Execution  Procedures 

The  verification  software  is  executed  from  the  Pascal  operating  system.  There  are 
two  ways  to  enter  into  the  Pascal  operating  system.  If  the  operator  is  unfamiliar 
with  the  Pascal  operating  system,  he  can  execute  the  autostart  instructions  above 
in  section  4.2.1,  then  end  the  program  in  the  main  menu  by  entering  ’7*.  If  the 
operator  is  familiar  with  the  operating  system,  he  can  load  all  of  the  necessary 
libraries  and  execute  the  verification  sdftware  directly  without  using  the  autostart 
and  running  the  HSWR  test  program.  In  either  case,  the  screen  must  show  the 
Pascal  command  line,  as  shown  in  Figure  4.47. 

4.3.1  Check  Pump  Commands 

To  execute  the  Check  Pump  Commands  Program  Executive,  the  operator  must 
enter  an  ’X'  for  'execute'.  The  operating  system  will  request  the  file  name.  The 
operator  must  respond  with  '#3:HSWRPC',  as  shown  in  Figure  4.48.  The  program 
will  display  the  status  of  the  pump,  and  a  menu  for  the  operator,  as  shown  in  Figure 
4.49.  if  the  operator  enters  a  'P',  the  relay  on  the  relay  output  card  associated 
with  the  pump  will  be  closed.  If  the  operator  enters  a  'D',  the  relay  will  be  opened. 
The  default  position  for  the  relay  when  the  program  is  started  is  Open.  The  status 
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of  the  pump  is  determined  from  the  event  sense  card.  If  the  relay  output  card  is 
tied  electrically  to  the  event  sense  card  with  a  pump  status  on  the 

screen  should  indicate  On  when  the  operator  enters  'P',  as  shown  in  Figure  4.50, 
and  Off  when  the  operator  enters  'O',  as  shown  in  Figure  4.49.  If  the  operator 
enters  any  other  key,  the  program  is  ended,  as  shown  in  Figure  4.51 . 

4.3.2  Check  Load  Commands 

To  execute  the  Check  Load  Commands  Program  Executive,  the  operator  must  enter 
an  'X'  for  'execute*.  The  operating  system  will  request  the  file  name.  The  operator 
must  respond  with  'fSiHSWRLC,  as  shown  in  Figure  4.52.  The  program  will  ask 
what  the  maximum  test  load  is  in  pounds,  as  shown  in  Figure  4.53.  After  the 
operator  enters  the  maximum  test  load,  the  program  will  ask  for  the  voltage 
corresponding  to  500  kips  for  the  feedback  circuit,  as  shown  in  Figure  4.54.  The 
program  will  then  display  the  values  entered,  the  command  and  feedback  (which 
will  be  zero  upon  starting  the  program),  and  will  wait  for  the  operator  to  enter  a 
load  value  to  ramp  to,  as  shown  in  Figure  4.55.  As  the  command  signal  ramps  to 
the  load  entered  by  the  operator,  the  screen  is  updated  with  the  incremental 
command  signal  in  pounds  and  the  resulting  feedback  signal  in  pounds,  as  shown  in 
Figure  4.56.  in  this  example,  the  operator  had  entered  50,000  pounds  for  a  desired 
output  value.  When  the  program  reaches  that  point,  the  program  will  enter  a  Hold 
mode,  and  wait  for  the  operator  to  enter  a  new  value,  as  shown  in  Figure  4.57.  If 
the  operator  enters  '-99'  as  a  new  value,  a  menu  will  be  presented  to  the  operator, 
as  shown  in  Figure  4.58. 

While  In  the  menu  for  the  Check  Load  Commands  program,  if  the  operator  enters 
'M',  the  program  will  ask  for  a  new  maximum  test  load,  as  shown  in  Figure  4.53. 
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After  the  operator  has  entered  the  new  value,  the  program  will  go  back  to  the  Hold 
mode.  The  Hold  mode  is  where  the  program  waits  for  the  operator  to  enter  a  new 
output  value,  as  shown  in  Figure  4.57.  If  the  operator  enters  'V,  the  program  will 
ask  for  a  new  voltage  corresponding  to  500  kips  for  the  feedback  circuit,  as  shown 
in  Figure  4.54.  After  the  operator  has  entered  the  new  value,  the  program  will  go 
back  to  the  Hold  mode,  as  mentioned  above,  if  the  operator  enters  'C,  the 
program  will  enter  the  calibration  routine.  The  program  will  continually  display  the 
load  feedback,  as  shown  in  Figure  4.59.  To  change  the  delay  in  updating  the 
feedback,  the  operator  must  enter  'D'.  The  program  will  request  the  operator  to 
enter  the  delay,  as  shown  in  Figure  4.60  (note:  if  the  delay  is  too  short,  the 
numbers  will  change  so  fast  the  operator  will  not  be  able  to  read  them).  Once  the 
operator  has  entered  a  new  delay,  the  program  will  continue  with  the  calibration 
routine,  as  shown  in  Figure  4.59.  If  the  operator  enters  any  key  other  than  'D',  the 
program  will  exit  the  calibration  routine  and  return  to  the  Hold  mode.  While  in  the 
menu  for  the  Check  Load  Commands  program,  if  the  operator  enters  'S'  for  a  data 
scan,  a  signal  is  sent  to  the  HP- 1000  to  read  the  test  data  to  nine-track  tape  (see 
3.3.4.4),  then  the  program  will  go  back  to  the  Hold  mode.  If  the  operator  enters 
'P',  a  signal  is  sent  to  the  HP-1000  to  read  the  test  data  and  print  the  data  to  the 
line  printer  (see  3.3.4.4),  then  the  program  will  go  back  to  the  Hold  mode.  If  the 
operator  enters  'Q',  the  program  will  end,  as  shown  in  Figure  4.61 . 

4.3.3  Check  Test  Parameter  Routines 

To  execute  the  Check  Test  Parameter  Program  Executive,  the  operator  must  enter 

an  'X'  for  'execute'.  The  operating  system  will  request  the  file  name.  The  operator 

0 

must  respond  with  '#3:HSWRTP',  as  shown  in  Figure  4.62.  When  the  program  is 
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started,  the  first  screen  displayed  is  the  main  menu  shown  Figure  4.63.  This  menu 
is  identical  to  the  one  described  in  4.2.2,  with  one  exception.  The  options  to  power 
up  the  pump  CS’)  and  start  the  test  ('9')  are  both  shown  in  this  program,  as  shown 
in  Figures  4.63  and  4.64,  while  the  Test  Executive  will  only  show  one  or  the  other, 
as  shown  in  Figures  4.2  and  4.3. 

The  program  is  waiting  for  the  operator  to  enter  a  request.  Any  key  other  than  the 
valid  numbers  shown  on  the  screen  will  be  ignored.  The  options  'O’,  *1',  '2',. '3', 
'4',  '7',  '8',  and  '9',  are  executed  as  discussed  in  4.2.2  above.  If  the  operator 
enters  '5'  to  power  up  the  pump,  the  program  will  display  that  this  program  is  for 
checking  the  routines  in  the  TEST_PARM  library  module  and  the  pump  commands 
are  verified  In  the  HSWRPC  program  (described  In  4.3.1  above),  as  shown  In  Figure 
4.65.  When  the  operator  enters  any  key,  the  program  returns  to  the  main  menu, 
and  the  key  that  was  entered  Is  ignored  by  the  program.  If  the  operator  enters  '6' 
to  calibrate  the  load  reading,  the  program  will  display  that  the  load  command 
routines  are  verified  in  the  HSWRLC  program  (described  in  4.3.2  above),  os  shown 
in  Figure  4.66.  Again,  when  the  operator  enters  any  key,  the  program  returns  to 
the  main  menu,  and  the  key  that  was  entered  Is  ignored  by  the  program. 

4.3.4  Check  Switches 

To  execute  the  Check  Switches  Program  Executive,  the  operator  must  enter  an  'X' 
for  'execute'.  The  operating  system  will  request  the  file  name.  The  operator  must 
respond  with  '#3:HSWRSC',  as  shown  in  Figure  4.67.  The  program  will  display  the 
status  of  the  six  switches  and  the  pump.  Note  that  the  status  of  the  pump  is 
displayed  since  this  is  effectively  the  seventh  switch  on  the  Event  Sense  card,  so 
this  function  is  verified  In  both  this  program  executive  and  in  the  Check  Pump 
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Commands  program  (see  4.3.1).  The  switches  are  checked  continually,  and  the 
screen  will  change  as  the  state  of  the  switches  changes.  For  example,  all  switches 
and  the  pump  are  Offxn  Figure  4.68.  All  switches  are  On  in  Figure  4.69.  Switches 
'O',  '1',  '4',  and  the  pump  are  On,  and  switches  '2',  '3',  and  '5'  are  Off'm  Figure 

4.70.  If  the  operator  enters  any  key,  the  program  is  ended,  as  shown  in  Figure 

4.71. 

4.3.5  Check  Counters 

To  execute  the  Check  Counters  Program  Executive,  the  operator  must  enter  an  'X' 
for  'execute'.  The  operating  system  will  request  the  file  name.  The  operator  must 
respond  with  '#3:HSWRCC',  as  shown  in  Figure  4.72.  The  program  will  display  a 
menu  for  the  operator  and  the  current  value  for  the  counters,  as  shown  in  Figure 

4.73.  Note  that  this  checking  routine  will  verify  the  four  counters  on  the  counter 
panel;  however,  only  three  are  used  for  the  HSWR  fatigue  test. 

If  the  operator  enters  '1',  '2',  '3',  or  '4',  the  program  will  query  the  operator  for 
how  many  times  the  counter  should  be  incremented.  For  example,  by  entering  '1', 
the  program  will  ask  how  many  times  to  increment  counter  1 ,  as  shown  in  Figure 

4.74.  If  the  operator  enters  '5'  to  simulate  starting  the  HSWR  fatigue  test,  the 
program  will  query  the  operator  to  enter  the  desired  pass,  record,  and  flight 
numbers.  For  example.  Figure  4.75  shows  operator  inputs  of  pass  »  3,  record  = 
25,  and  flight  =  77.  After  these  values  are  entered,  the  program  will  query  the 
operator  to  be  certain  that  he  wants  to  restart  the  test  at  that  point,  as  shown  in 
Figure  4.76.  If  the  operator  enters  a  'Y',  the  counters  are  incremented,  and  the 
counters  and  the  screen,  shown  in  Figure  4.77,  will  give  the  same  values.  If  the 
operator  enters  a  'N',  the  counters  are  not  incremented,  and  the  screen  will  reflect 
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the  same  values  prior  to  the  operator  entering  ’5*  from  the  menu.  If  the  operator 
enters  a  'O’,  the  program  will  end,  as  shown  In  Figure  4.78. 

4.3.6  Check  Display 

To  execute  the  Check  Display  Program  Executive,  the  operator  must  enter  an  ’X' 
for  'execute*.  The  operating  system  will  request  the  file  name.  The  operator  must 
respond  with  '#3:HSWRDS',  as  shown  in  Figure  4.79.  The  program  will  ask  the 
operator  which  test  mode  to  run,  static  or  fatigue,  as  shown  In  Figure  4.80.  The 
mode  cannot  be  changed  once  It  has  been  entered.  If  the  operator  wishes  to  run 
the  other  mode,  the  program  must  be  ended  and  re-run. 

If  the  operator  enters  'S’  for  the  static  test  mode,  the  same  procedures  will  be 
executed  as  discussed  In  3.2.3  above,  with  the  following  exceptions.  The  only 
functions  executed  by  this  program  are  those  that  relate  to  updating  the  screen. 
The  load  point,  command  signal,  and  feedback  are  displayed  on  the  screen  as  they 
are  during  the  execution  of  the  Test  Executive  (CSC-1.1),  but  the  load  output 
(voltage  to  the  load  control  system)  will  be  held  at  zero,  and  the  feedback  will  not 
be  check  to  determine  if  it  is  within  tolerance.  The  'S’  option,  trigger  a  data  scan, 
will  not  actually  send  the  signal  to  the  HP-1000.  When  the  operator  enters  'L'  and 
a  new  load  point,  this  program  will  not  actually  ramp  to  the  load  point.  To  change 
from  the  ramp  function  to  the  hold  function  requires  the  operator  to  enter  any  key. 
Also,  when  at  a  zero  load  point,  if  the  operator  enters  'M',  this  program  will  be 
ended,  as  shown  in  Figure  4.81 . 

If  the  operator  enters  'F'  for  the  fatigue  test  mode,  the  same  procedures  will  be 
executed  as  discussed  in  3.2.4  above,  with  the  following  exceptions.  As  with  the 
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static  test  mode,  the  only  functions  executed  by  this  program  are  those  that  relate 
to  updating  the  screen.  This  program  will  step  through  a  fictitious  fatigue  spectrum 
of  ten  data  points,  one  point  every  second,  but  will  hold  the  load  output  to  zero.  If 
the  operator  enters  a  key,  he  will  be  given  the  same  options  as  discussed  in  3.2.4. 
To  end  the  program,  the  operator  must  halt  the  test  at  a  zero  load  point,  and  enter 
'M’.  The  program  will  respond  as  shown  in  Figure  4.82. 
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Please  put  DAL40  in  unit  #3 

and  press  the  X  key... 

Figure  4.1 .  Autostart  Request  for  Disk  Labeled  DAL40 

-  - - 

HIGH  STRAIN  WING  REPAIR  FATIGUE  TEST 

0. 

Switch  to  Static  Test 

1  . 

Read  configuration  files 

2. 

Change  System  parameters 

3. 

Change  Test  parameters 

4. 

Write  configuration  files 

5. 

Power  UP  the  pump 

6. 

Calibrate  load  reading 

7. 

End  program 

8. 

Change  number  of  passes 

Request? 

Figure  4.2.  Fatigue  Test  Main  Menu 
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HIGH  STRAIN  WING  REPAIR  STATIC  TEST 

0.  Switch  to  Fatigue  Test 

1.  Read  configuration  files 

2.  Change  System  parameters 

3.  Change  Test  parameters 
A.  Write  configuration  files 

5.  Power  up  the  pump 

6.  Calibrate  load  reading 

7 .  End  program 

8. 

Request? 

Figure  4.3.  Static  Test  Main  Menu 


What  is  file  name  to  be  read? 
Default  is  *^HSWRSCFG’  “ 


Figure  4.4.  Request  for  Static  Test  Configuration  File  Name  to  Read 


What  is  file  name  to  be  read? 
Default  is  'HSWRFCFG'  - 


Figure  4.5.  Request  for  Fatigue  Test  Configuration  File  Name  to  Read 
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What  is  file  name  to  be  read? 
Default  is  'HSWRFCFG'  - 


Can't  open  file  #3: HSWRFCFG. TEXT. 
lOresult®  34 

Hit  any  key  to  continue.... 


Figure  4.6.  Example  of  Error  While  Reading  Configuration  File 


Design  Limit  load  is  167200  lbs 
Test  Ultimate  load  is  250800  lbs 

Control  System: 

Maximum  Load  is  862TUL 
Maximum  Load  is  215000  lbs 
Set  Servac  Span  to  4.30 
Resolution  is  108  lbs 

Feedback  System: 

Full  scale  for  500  kips  is  10.000  volts 
Resolution  is  250  lbs 


Hit; 

D  to  change  Design  limit  load 
M  to  change  Maximum  actuator  load 
V  to  change  full  scale  Voltage 
<space>  to  exit 


Figure  4.7.  Menu  for  Changing  the  System  Parameters 


Enter  Design  Limit  Load  in  pounds 


Figure  4.8.  Query  to  Operator  for  the  Design  Limit  Load 
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^nter  the  maxinun  test  load  in  pounds  - 
Figure  4.9.  Query  to  Operator  for  the  Maximum  Test  Load 


What  is  correspondinq  voltage  for  SOOkips*? 
Figure  4.10.  Query  to  Operator  for  the  Full  Scale  Voltage 


Loading  Rate  is  800  Ibs/sec 
Tolerance  is  5000  lbs 

Hit: 

L  to  change  Loading  rate 
T  to  change  Tolerance 
<space>  to  exit 

Figure  4.1 1 .  Menu  for  Changing  the  Test  Parameters 


What  is  the  loading  rate  in  Ibs/sec? 
Figure  4.12.  Query  to  Operator  for  the  Loading  Rate 


Figure  4.13.  Query  to  Operator  for  the  Load  Tolerance 
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Mhat  is  file  name  to  be  written'? 
Default  is  'HSMRSCFG'  ~ 


Figure  4.14.  Request  for  Static  Test  Configuration  File  Name  to  Write 


What  is  file  name  to  be  written? 
Default  is  'HSWRFCFG'  - 


Figure  4.1 5.  Request  for  Fatigue  Test  Configuration  File  Name  to  Write 


What  is  file  name  to  be  written? 
Default  is  'HSWRSCFG'  - 

Can't  open  file  #3:HSWRSCFG.TFXT, 
lOresult'  34 

Hit  any  key  to  continue.... 

Figure  4.1 6.  Example  of  Error  While  Writing  Configuration  File 
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HIGH  STRAIN  WING  REPAIR  FATIGUE  TEST 

0.  Switch  to  Static  Test 

1.  Read  configuration  files 

2.  Change  System  parameters 

3.  Change  Test  parameters 
A,  Write  configuration  files 

5. 

6.  Calibrate  load  reading 

7 .  End  program 

8.  Change  number  of  passes,  currently  100 

9.  Begin  test 
Request'? 

Figure  4.17.  Fatigue  Test  Main  Menu  with  Pump  Running 
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HIGH  STRAIN  WING  REPAIR  STATIC  TEST 

0.  Switch  to  Fatigue  Test 

1.  Read  configuration  files 

2.  Change  System  parameters 

3.  Change  Test  parameters 

4.  Write  configuration  files 

5. 

6.  Calibrate  load  reading 

7.  End  program 

8. 

9.  Begin  test 
Request? 

Figure  4.18.  Static  Test  Main  Menu  with  Pump  Running 


Feedback  -  250  lbs 

Hit  any  key  to  end  calibration,  or 
"D”  to  change  cal  printout  delay 

Figure  4.19.  Load  Calibration  Display 
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Carrent  delay  is  100  milliseconds 
What  is  desired  delay  in  milliseconds'^ 

Figure  4.20.  Query  to  Operator  for  the  Calibration  Delay 


Command:  Cmplr  Edit  File  Init  Libr  Run  Xcut  Ver  ? 

Program  Ended.... 

Figure  4.21.  Program  Ended  with  No  Configuration  Changes 


Are  you  sure  you  uant  to  end  the  program? 
Configuration  changes  will  be  lost.... 

End  the  prograro<Y  or  N>? 

Figure  4.22.  Configuration  Change  Notice  During  a  Static  Test 
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Command:  Cmplr  Edit  File  Init  Libr  Run  Xcut  Ver  ? 


Are  you  sure  you  want  to  end  the  program? 
Configuration  changes  will  be  lost.... 


End  the  prograin(Y  or  N)*? 


Program  Ended. . . . 


Figure  4.23.  Static  Test  Ended  with  Configuration  Changes  Not  Saved 


Are  you  sure  you  want  to  end  the  program? 
Configuration  changes  and/or  the  fatigue 
test  counters  will  be  lost.... 


End  the  programtY  or  N)? 


. 


Figure  4.24.  Configuration  Change  Notice  During  a  Fatigue  Test 
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Figure  4.26.  Query  to  Operator  for  the  Number  of  Passes  to  Run 
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HIGH  STRAIN  WING  REPAIR  STATIC  TEST 

Holding  at  0.02  of  DLL 
0.0%  of  TUL 

Desired  Load  ■  0  lbs 

Feedback  *  0  lbs 

Hit: 

S  to  trigger  data  Scan 
L  for  next  Load  point 
M  to  return  to  the  Menu 

Figure  4.27.  Hold  at  Zero  Load  During  Static  Test 


HIGH  STRAIN  WING  REPAIR  STATIC  TEST 

Holding  at  0.0%  of  DLL 
0.0%  of  TUL 

Desired  Load  *  0  lbs 

Feedback  ■  0  lbs 

What  is  neu  load  point  in  percent  of  DLL? 


Figure  4.28.  Query  to  Operator  for  the  Next  Load  Point 
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HIGH  STRAIN  WING  REPAIR  STATIC  TEST 

Holding  at  of  DLL 

73.37.  of  TIJL 

Desired  Load  *  183920  lbs 

Feedback  *  8555  lbs 

Absolute  Difference  •  -175365  lbs 
Percent  Difference  *  95.3  */• 

What  is  neu  load  point  in  percent  of  DLL?  160 
Maximum  load  is  +/-2150001bs  (129/  DLL) 
Try  again,  new  load  poin  t? 

Figure  4.29.  Example  of  Invalid  Request  for  Next  Load  Point 


HIGH  STRAIN  WING  REPAIR 

STATIC 

TEST 

Ramping  to  10.07 

of  DLL 

6.77. 

of  TUL 

Desired  Load  * 

16720 

lbs 

Feedback  * 

8000 

lbs 

Hit  any  key  to  halt  test. 

•  •  • 

Figure  4.30.  Ramp  to  Load  Point  During  Static  Test 
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HIGH  STRAIN  WING  REPAIR  STATIC  TEST 


Holding  at  10. OX  of  DLL 
6.7X  of  TUL 


Desired  Load  *  16720  lbs 

Feedbacif  -  16250  lbs 

Absolute  Difference  •  -470  lbs 

Percent  Difference  *  2.8  X 

Hit: 

S  to  trigger  data  Scan 
L  for  next  Load  point 
U  to  Unload 


Figure  4.31 .  Hold  at  Load  Point  During  Static  Test 


HIGH  STRAIN  WING  REPAIR  STATIC  TEST 

Rajnping  to  80. OX  of  DLL 
53. 3X  of  TUL 


Desired  Load  ■  133760  lbs 

Feedbacif  **  -67000  lbs 


Test  stopped  on  Negative  overload.... 
Lower  bound  ■  -66560 lbs 
Hit  any  key  to  continue.... 


Figure  4.32.  Example  of  Overload  During  a  Static  Test 
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HIGH  STRAIN  WING  REPAIR  STATIC  TEST 

Ramping  to  30.0/i  of  DLL 
20.0V,  of  TUL 

Desired  Load  *  501  GO  lbs 

Feedback  ■  2060  lbs 

External  dump  at  26.527.  of  DLL 

Hit  any  key  to  zero  command  signal 
and  continue .... 


Figure  4.33.  Example  of  External  Dump  During  a  Static  Test 


Figure  4.35.  Example  of  Operator  Entry  of  New  Starting  Position 
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Pass  Number  *  3 

Flight  Number  *  155 
Point  Number  *  7 

Restart  at  this  point?  <Y  or  N^ 

Figure  4.36.  Verification  of  Operator  Entries 


Resetting  counters,  olease  wait.... 


Figure  4.37.  Note  to  Operator  That  Counters  are  Being  Updated 


Setting  file  pointer,  olease  wait.... 


Figure  4.38.  Note  to  Operator  That  File  Pointer  is  Being  Updated 
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HIGH  STRAIN  WING  REPAIR  FATIGUE  TEST 


Pass  Number 
Flight  Number 
Point  Number 
Spectrum  Value 
Corrected  Value 
Desired  Load 
Feedback 


3 

155 

7 

-14.0  XDI  L 
-14.0  XDLL 
-23408  lbs 
0  lbs 


Hit  any  key  to  start  test,  or 
M  to  return  to  menu.... 


Figure  4.39.  Final  Verification  Prior  to  Starting  Test 
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HIGH  STRAIN  WING  REPAIR 

FATIGUE  TEST 

Pass  Number 

m 

3 

Flight  Number 

m 

155 

Point  Number 

m 

7 

Spectrum  Value 

K 

-14.0  XDLL 

Corrected  Value 

«: 

-14.0  XDLL 

Desired  Load 

* 

23408  lbs 

Feedback 

» 

12750  lbs 

Hit  any  key  to 

halt 

tast • • • « 

Figure  4.40.  Example  of  Display  During  Fatigue  Test 


HIGH  STRAIN  WING  REPAIR  FATIGUE  TEST 

Holding  at  -28.97.  of  DLL 
-19.2X  of  TIJL 

Desired  Load  *  -48269  lbs 

Feedback  ■  -48750  lbs 

Absolute  Difference  *  -481  lbs 

Percent  Difference  *  1 .0  X 

Hit: 

C  to  Continue  test  were  stopped 
U  to  Unload 

Figure  4.41 .  Example  of  Operator  Interrupt  During  Fatigue  Test 
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HIGH  STRAIN  WING  REPAIR  FATIGUE  TEST 

Ramping  to  0.0*^  of  DLL 
O.OX  of  TUL 

Desired  Load  ■  0  lbs 

Feedback  *  -7750  lbs 

Hit  any  key  to  halt  test.... 

Figure  4.42.  Ramp  to  Zero  Load  Initiated  by  Operator  Request 


HIGH  STRAIN  WING  REPAIR  FATIGUE  TEST 

Holding  at  0.07  of  DLL 
0.07.  of  TUL 

Desired  Load  *  0  lbs 

Feedback  ■  0  lbs 

Hit: 

C  to  Continue  test  were  stopped 
M  to  return  to  the  Henu 


Figure  4.43.  Hold  at  Zero  Load  During  Fatigue  Test 
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HIGH  STRAIN  WING  REPAIR 

FATIGUE  TEST 

Pass  Number  * 

3 

Flight  Number  * 

15S 

Point  Number  * 

7 

Spectrum  Value  = 

-14.0 

•/DLL 

Corrected  Value  * 

-14.0 

•/DLL 

Desired  Load  * 

23408 

lbs 

Feedback  = 

28750 

lbs 

Test  stopped  on  Negative  overload. 
Lohier  bound  *  -284081bs 

Hit  any  key  to  continue.... 

t  •  « 

Figure  4.44.  Example  of  Overload  During  a  Fatigue  Test 
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HIGH  STRAIN  WING  REPAIR 

FATIGUE  TEST 

Pass  Number  = 

1 

Flight  Number  » 

1 

Point  Number  * 

2 

Spectrum  Value  * 

-55.3  XDLL 

Corrected  Value  * 

-55.3  ‘^DLL 

Desired  Load  ® 

-92462  lbs 

Feedback'  = 

500  lbs 

External  diunp  at  -A.BAV,  of  DLL 

Hit  any  key  to  zero  command  signal 
and  continue .... 

Figure  4.45.  Example  of  External  Dump  During  a  Fatigue  Test 


Test  stopped  and  pump  dumped 
per  operator  request . 


Hit  any  Icev  to  continue.... 


Figure  4.46.  Test  Stopped  Using  Counter  Panel  Switches 


Command:  Craplr  Edit  File  Init  Libr  Run  Xcut  Ver  ? 


Figure  4.47.  Pascal  Operating  System  Command  Line 
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Execute  uhat  file?  #3:HSMRPC 


Figure  4.48.  Operator  Input  to  Execute  the  Check  Pump  Commands  Program 


Figure  4.49.  The  Check  Pump  Commands  Program  Menu  with  Pump  Off 


Pump  is  On 


Hit  any  key  to  quit,  or 

*'P”  to  Power  up  pump 
**D”  to  Dump  pump 


Figure  4.50.  The  Check  Pump  Commands  Program  Menu  with  Pump  On 
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Command:  Cmplr  Edit  File  Init  Libr  Run  Xcut  Ver  ? 


Pump  is  On 


Program  ended. . . . 


Figure  4.51.  Display  After  the  Check  Pump  Commands  Program  Has  Ended 


Execute  what  file?  <^3:HSWRLC 


Figure  4.52.  Operator  Input  to  Execute  the  Check  Load  Commands  Program 


Enter  the  maximum  test  load  in  pounds 


Figure  4.53.  Query  to  Operator  for  the  Maximum  Test  Load 


Figure  4.54.  Query  to  Operator  for  the  Full  Scale  Voltage 


77 


NAWCADWAR-93085-60 


Command:  Maximum  Load  is  500000  lbs 

FeedbacL  :  Full  scale  for  500  Irips  is  10.000  volts 

Command  »  0  lbs 

Feedback  •  0  lbs 

Enter  Output  value  in  pounds, 
or  -99  to  stop 

Figure  4.55.  Query  to  Operator  for  the  Output  Load 


Command : 

Maximum  Load 

is  500000  lbs 

Feedback ! 

Full  scale  for  500  kips  is  10.000  volts 

Command  * 

10179  lbs 

Feedback  ■ 

10250  lbs 

Enter  Output  value 

in  pounds. 

or  - 

99  to  stop 

Figure  4.56.  Example  of  Display  During  Ramp  to  Output  Load 
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Feedback  •  0  lbs 

Hit  any  key  to  end  calibration,  or 
”D"  to  change  cal  printout  delay 

Figure  4.59.  Load  Calibration  Display 


Current  delay  is  100  Milliseconds 
What  is  desired  delay  in  Milliseconds'? 

Figure  4.60.  Query  to  Operator  for  the  Calibration  Delay 
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Command:  Cmolr  Edit  File  Init  Libr  Ran  Xcut  Ver  ? 

Command:  Maximum  Load  is  500000  lbs 

Feedback:  Fall  scale  for  500  kips  is  10.000  volts 


Command  10000  lbs 

Feedback  ■  10000  lbs 


What  uoald  you  like  to  do  now?  Hit; 

M  to  change  Max  imam  actoator  load 
V  to  change  fall  scale  Voltage 
C  to  ran  Calibration  roatine 
S  to  sent  Scan  signal  to  HP-1000 
P  to  sent  Print  signal  to  HP-1000 
Q  to  Qait 


Program  ended.... 


Figure  4.61 .  Display  After  the  Check  Load  Commands  Program  Has  Ended 


Execate  what  file?  #3;HSWRTP 


Figure  4.62.  Operator  Input  to  Execute  the  Check  Test  Parameter  Program 
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r 


HIGH  STRAIN  WING  REPAIR  FATIGUE  TEST 

0. 

Suitch  to  Static  Test 

1 . 

Read  configuration  files 

2. 

Change  System  parameters 

3. 

Change  Test  parameters 

A, 

Write  configuration  files 

5. 

Power  UP  the  pump 

6. 

Calibrate  load  reading 

7  . 

End  program 

8. 

Change  number  of  passes 

9. 

Begin  test 

I  Request?  _ | 

Figure  4.63.  Check  Test  Parameter  Program  Fatigue  Test  Menu 
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HIGH  STRAIN  WING  REPAIR  STATIC  TEST 

0.  Switch  to  Fatigue  Test 

1.  Read  configuration  files 

2.  Change  System  oarameters 

3.  Change  Test  parameters 

4.  Write  configuration  files 

5.  Power  up  the  pump 

6.  Calibrate  load  reading 

7 .  End  program 

8. 

9.  Begin  test 
Request? 

Figure  4.64.  Check  Test  Parameter  Program  Static  Test  Menu 
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This  program  is  for  checifing  the  routines 
in  TEST_PAR«.  Use  HSWRPC  for  checking  the 
pump  command  routines. 

Hit  any  key  to  continue.... 

Figure  4.65.  Check  Test  Parameter  Program  Response  to  Menu  Item  *5’ 


This  program  is  for  checking  the  routines 
in  TEST_PARM.  Use  HSWRLC  for  checking  the 
load  command  routines. 

Hit  any  key  to  continue.... 

Figure  4.66.  Check  Test  Parameter  Program  Response  to  Menu  Item  '6' 


Execute  uhat  file?  #3jHSWRSC 


Figure  4.67.  Operator  Input  to  Execute  the  Check  Switches  Program 
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Figure  4.68.  Example  of  Display  With  All  Switches  and  Pump  Off 


Switch  Number 

0  12  3  4  5 

On  On  On  On  On  On 

Hit  any  key  to  quit.... 

Figure  4.69.  Example  of  Display  With  All  Switches  On 


Pump 

On 


Switch  Number 


0  12  3  4  5 

On  On  Off  Off  On  Off 
Hit  any  key  to  quit.... 


Pump 

On 


Figure  4.70.  Example  of  Display  With  Switches  and  Pump  Randomly  On  and  Off 
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Command : 

Cmpir  Edit  File  Init  Libr  Run 

Switch  Number 

Xcut  Ver  ?  I 

0 

12  3  4  5 

Pump 

Off 

Off  Off  Off  Off  Off 

Hit  any  key  to  quit.... 

Off 

Program  ended. . . . 

Figure  4.71 . 

Display  After  the  Check  Switches  Program  Has  Ended 

Execute  what  file?  #3;HSWRCC 

- 

Figure  4.72.  Operator  Input  to  Execute  the  Check  Counters  Program 
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Enter  coanter  number  you  want  changed, 

'5'  to  change  1,  2,  and  3  all  at  the  same 
time  (like  restarting  a  fatigue  test), 
or  'Q'  to  quit . . . . 

Counter  1  =  0 
2  =  0 

3  =  0 

4  =  0 

Figure  4.73.  Check  Counters  Program  Menu  at  Start  of  Program 


How  many  times  do  you 
want  counter  1  incremented? 

Figure  4.74.  Query  to  Operator  for  the  Number  of  Times  to  Increment  a  Counter 


Enter  the  Pass  number  ~  3 
Enter  the  Record  number  -  25 
Enter  the  Point  number  -  77 

Figure  4.75.  Example  of  Operator  Entry  of  New  Starting  Position 


87 


NAWCADWAR-93085-60 


Pass  Number  * 

3 

Record  Number  ■ 

25 

Point  Number  * 

77 

Restart  at  this  point?  (Y  or  N)  - 

Figure  4.76.  Verification  of  Operator  Entries 


Figure  4.77.  Check  Counters  Program  Menu  after  Incrementing  Counters 
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Figure  4.79.  Operator  Input  to  Execute  the  Check  Display  Program 


Static  or  Fatigue  <S  or  F)? 


Figure  4.80.  Query  to  Operator  for  the  Test  Mode 
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Figure  4.82.  Display  After  the  Check  Display  Program  Has  Ended  in  the  Fatigue 

Mode 
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APPENDIX  A  -  HARDWARE  DESCRIPTION 

This  section  gives  a  description  of  the  hardware  associated  with  structural  test. 
This  includes  both  the  computer  hardware  and  the  loading  apparatus. 

A.1  Description  of  test  setup 

On  a  typical  test  setup,  loads  are  imparted  on  the  test  specimen  or  subcomponent 
by  a  hydraulic  actuator.  On  the  test  floor,  one  or  more  actuators  are  mounted  in  a 
custom  designed  fixture  to  match  the  loading  parameters  desired  for  the  test 
specimen  or  subcomponent,  and  reactions  for  statically  indeterminate  applications 
are  Instrumented  by  load  cells.  For  example,  a  beam  in  three-point  loading  requires 
only  one  load  cell  on  the  hydraulic  actuator,  but  a  subcomponent  that  simulates  a 
bulkhead  attachment  to  a  fuselage  will  have  several  actuators  to  impart  shear  and 
torsion  on  the  subcomponent,  so  the  reactions  are  typically  instrumented  with  a 
load  cell.  In  the  fatigue  lab,  the  hydraulic  actuator  is  permanently  mounted  in  a  load 
frame.  Interchangeable  grips  are  used  for  clamping  a  test  specimen  into  the  load 
frame.  There  are  six  load  frames,  or  more  commonly  referred  to  as  test  machines; 
three  20-kip  capacity  and  three  100-kip  capacity. 

In  all  cases,  power  to  the  hydraulic  actuators  is  supplied  by  one  of  three  hydraulic 
power  supplies  or  pumps,  which  operate  at  3000psi.  The  pumps  are  operated  from 
a  control  panel.  Relays  in  the  control  panel  act  as  safety  interlocks.  When  all  of 
the  relays  are  closed,  the  control  panel  allows  an  operator  to  start  the  pump.  When 
any  of  the  relays  are  opened,  the  control  panel  shuts  off  the  pump.  The  relays  are 
tied  in  to  any  of  a  number  of  different  sensors,  some  of  which  are  on  the  pump 
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itself.  For  example,  there  is  a  relay  tied  to  a  pump  over-temperature  indicator,  and 
a  relay  tied  to  a  low  oil  level  indicator. 

Some  of  the  relays  are  tied  to  switches  on  the  hydraulic  actuators,  which  are  stroke 
limits.  These  stroke  limits  are  set  manually  by  the  test  engineer  or  test  mechanics, 
and  prevent  a  runaway  condition  where  the  hydraulic  actuator  may  move  further 
than  anticipated. 

A.2  Description  of  test  equipment 

The  actuators  are  servo-controlled  hydraulic  actuators.  The  load  output  of  the 
actuator  is  dependent  on  the  hydraulic  pressure  applied  to  the  piston  in  the 
actuator.  A  small  servo  mounted  on  the  side  of  the  actuator  regulates  the  amount 
of  hydraulic  pressure  applied  to  the  piston.  The  servo  is  an  electromagnetic  device. 
The  servo  valve  is  controlled  electrically  by  an  MTS  Model  401.03  Servac,  which 
will  be  described  below. 

A  load  cell  attached  to  actuator  translates  axial  load  into  electrical  resistance  by 
means  of  a  four-way  bridge.  Each  load  ceil  contains  two  electrically  independent 
bridges,  the  "A"  bridge  and  the  "B"  bridge.  The  "B"  bridge  is  typically  tied  to  some 
sort  of  load  reading  device,  as  required.  Generally  in  the  fatigue  lab,  the  ”B"  bridge 
is  tied  to  a  voltmeter  that  converts  load  to  voltage  directly.  A  computer  or 
oscilloscope  can  also  be  tied  into  the  "B"  bridge.  Generally  on  the  test  floor,  load  is 
read  by  a  computer. 

The  servac  is  the  interface  between  the  operator  and  the  hydraulic  actuator.  The 
operator  applies  an  input  voltage  to  the  servac  depending  on  the  desired  load.  The 
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actual  calculation  of  the  input  voltage  from  the  desired  load  in  pounds  is  dependent 
on  the  size  of  the  actuator,  the  load  cell. 

The  servac  applies  a  voltage  to  one  leg  of  the  "A"  bridge,  and  reads  the  resulting 
voltage,  which  is  dependent  on  the  load  applied  to  the  load  cell.  This  voltage  is 
referred  to  as  the  feedback  voltage.  The  Servac  compares  the  input  voltage  to  the 
feedback  voltage,  and  changes  the  command  voltage  to  open  or  close  the  servo 
valve  as  required.  The  difference  between  the  command  voltage  and  the  feedback 
voltage  Is  known  as  the  error  signal.  When  the  error  signal  becomes  too  great,  the 
servac  opens  one  of  the  relays  in  the  control  panel  to  shut  the  pump  down.  The 
operator  can  adjust  the  allowable  error  to  suit  the  particular  loading  characteristics 
of  the  test  specimen  and  loading  conditions. 

A.3  Description  of  existing  fatigue  lab  system 

There  are  several  methods  available  to  the  operator  to  control  the  loading  of  a  test 
machine  In  the  fatigue  lab.  The  function  generator  is  used  often.  The  function 
generator  has  a  variety  of  functions  to  tailor  the  load  control.  For  example,  the 
operator  can  select  a  straight  line  ramp  from  zero  to  +10  volts  or  from  zero  to  -10 
volts  to  run  a  tension  or  compression  static  test,  respectively.  The  function 
generator  also  has  a  sine  wave  function  for  the  same  purpose.  The  function 
generator  can  also  control  constant  amplitude  fatigue.  The  operator  can  select  a 
sine  wave  function  that  will  perform  a  tension-tension  or  tension-compression 
fatigue  test.  The  function  generator  outputs  +/-10  volts  as  the  peak  command, 
the  set  point  on  the  servac  determines  the  valley  load,  and  the  span  setting  on  the 
servac  sets  the  amplitude  of  the  load. 
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A.4  Description  of  existing  HP- 1000  system 

The  test  floor  is  much  different  from  the  fatigue  lab  in  that  no  simple  tests  are 
conducted  on  the  test  floor.  The  HP-1000  has  several  Interfaces  for  outputting 
different  loads  and  reading  many  different  parameters,  such  as  load,  strain, 
deflection,  temperature,  etc. 

8  channels  D/A  for  outputting  load 
24  channels  A/D  for  reading  load 
288  channels  low  level  A/D  for  reading  strain  &  temperature 
32  relay  output  channels  for  controlling  machines 
2  event  sense  channels  for  checking  status  of  machines 
1 .5  Megabyte  storage  RAM 
20  megabyte  storage  on  disk 
1  9-track  tape  drive 

There  are  several  advantages  of  the  HP-1000  based  test  system. 

■  The  test  can  have  as  many  different  controlling  parameters  as  the  eight 
digital  to  analog  converters  will  provide;  many  tests  have  symmetry  to  allow 
several  actuators  to  be  tied  to  one  output  channel. 

■  Speed  is  another  advantage  of  this  system.  The  analog  to  digital  converters 
are  extremely  fast  for  reading  data,  regardless  of  the  number  of  data 
channels.  Typically,  throughput  Is  a  function  of  the  number  of  safety  checks 
required  in  a  complex  test,  not  the  data  acquisition. 
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■  The  data  storage  capability  is  riearly  unlimiited.  In  addition  to  the  disk  drive, 
the  9-track  tape  drive  gives  increased  flexibility  for  storing  large  quantities 
of  data. 

However,  there  are  several  disadvantages  to  the  HP-1000  based  system. 

■  There  is  only  one  of  them,  and  the  cost  of  an  equivalent  system  was  too 
much.  The  computer  could  not  be  time-shared,  since  tests  are  usually 
performed  on  one-of-a-kind  subcomponents  that  have  taken  many  years  and 
millions  of  dollars  to  design  and  produce  that  a  dedicated  computer  system 
is  required  to  oversee  testing.  Therefore,  while  one  test  Is  being  performed, 
data  processing  or  software  development  for  another  test  cannot  be 
conducted.  Also,  if  the  computer  should  go  down,  there  is  no  backup 
system  to  perform  time-critical  testing. 

■  There  is  no  time  based  generator  available,  so  all  loading  must  be  done  In 
either  a  straight  ramp  or  haversine.  Most  testing  is  done  with  haversine, 
which  is  a  sine  wave  broken  down  into  a  set  number  of  discrete  steps, 
typically  48,  sometimes  24  or  96.  When  a  fast  loading  rate  Is  required, 
haversine  loading  can  cause  distinctly  noticeable  'chugging*  In  the  actuators. 
In  some  cases  this  can  be  the  limiting  factor  for  the  speed  of  the  fatigue 
test.  A  more  desirable  loading  method  is  a  smooth,  continuous  function. 

■  The  HP-1 000  system  has  very  few  event  sense  channels,  which  can  limit 
the  operators  flexibility. 
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A.5  Description  of  HP-9826  system 

Several  HP-9826  computers  were  purchased  to  perform  a  scaled  down  function  of 
the  larger  HP-1000  system.  The  HP-9826  is  a  desktop  computer,  with  a 
minimum  of  256  kilobytes  and  a  maximum  of  1  megabyte  of  RAM,  and  a  256 
kilobytes  floppy  disk.  The  HP-9826  has  both  a  Basic  and  Pascal  operating  system 
developed  by  Hewlett-Packard.  The  Basic  system  is  not  generally  acceptable  for 
testing  since  It  is  too  slow.  Pascal  is  much  faster  than  Basic  since  it  is  a  pre¬ 
compiled  language.  The  procedure/library  system  also  aids  in  software 
development,  since  components  can  be  developed  first,  then  a  main  program  can 
combine  all  the  components.  Generic  components  can  also  be  used  for  many 
different  programs. 

The  HP-6940B  multiprogrammer  is  the  reason  for  selecting  Hewlett-Packard  as 
the  vendor;  The  multiprogrammer  can  read  strain  gages  and  thermocouples,  which 
are  in  the  micro-volt  range,  directly  without  any  pre-amps  required,  specifically,  the 
low  level  A/D  card  required  for  reading  strain  gages  direct  without  amplifiers. 

Multiprogrammer  has  wide  range  of  cards  available,  enough  to  imitate  large  system 
on  smaller  scale: 

■  D/A  cards  available  for  controlling  test  machines,  heat  chambers,  etc. 

■  High  speed  A/D  card  and  quad  A/D  for  reading  test  machines  and  other 
devices  that  have  a  0-10  volt  range. 

■  Low  level  A/D  for  reading  strain  gages  and  thermocouples. 
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■  Relay  open  cards  for  controlling  test  machines,  incrementing  counters,  or 
triggering  other  devices. 

■  Event  sense  cards  for  sensing  errors,  machine  status,  or  switches. 

As  many  of  each  of  the  above  cards  can  be  used,  up  to  twelve  cards  total, 

depending  on  the  application. 

There  are  many  significant  advantages  to  the  HP-9826  based  system: 

■  Taiiorability:  Additional  cards  can  be  purchased  for  the  multiprogrammer  if 
required  for  an  Individual  test  at  a  relatively  small  cost. 

■  Portability:  These  systems  can  be  rack  mounted,  which  make  them  easy  to 
move  to  any  location  in  the  lab  or  test  floor.  The  computer  itself  can  even 
be  moved  to  the  office  for  data  reduction  or  report  generation. 

■  Reliability:  When  all  systems  are  not  being  used.  If  one  computer  goes  down, 
another  can  quickly  replace  it. 

■  Low  Cost:  Several  systems  can  be  purchased  for  the  price  of  one  main¬ 
frame  system.  In  the  case  of  the  Structural  Test  Facility,  having  five 
systems  allow  up  to  four  different  tests  to  bo  run,  while  one  system  is 
utilized  for  software  development,  or  In  an  emergency,  five  tests  can  be  run. 

■  More  Modern:  The  HP-9826  computer  has  a  time  based  generator  built  in, 
so  a  sine  wave  function  can  be  calculated,  and  a  haversine  method  of 
loading  doesn't  have  to  be  used  as  with  the  case  of  the  HP-1000. 
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There  are,  of  course,  some  disadvantages  to  the  HP-9826  system: 

■  The  amount  of  RAM  in  the  HP-9826  limits  the  size  of  fatigue  spectrum. 
Four  memory  cards  can  be  used  in  each  machine,  and  at  least  two  are 
required  to  run  Pascal  and  the  applications  software.  Typically,  each 
machine  does  not  require  the  maximum  number  of  boards  to  run  a  test,  so 
they  can  be  swapped  around  from  machine  to  machine  as  required. 
However,  the  average  aircraft  spectrum  requires  maximum  memory,  but  we 
have  not  had  any  spectrum  yet  so  large  we  couldn’t  handle  It.  Also,  the 
maximum  number  of  boards  are  required  to  simplify  software  development. 

■  The  throughput  of  the  low  level  A/D  card  is  extremely  slow.  Each  channel  Is 
read  sequentially,  not  parallel  like  on  large  system;  therefore,  the  more  strain 
gages,  the  slower  it  runs.  As  a  rule  of  thumb,  the  speed  is  adequate  for 
tests  of  five  strain  gages  or  less.  Any  more  strain  gages  than  that  and  there 
is  a  risk  of  loosing  the  data  at  failure.  It  is  also  not  recommended  on  fatigue 
tests  since  failure  may  occur  while  at  peak  load,  and  any  gages  not  read 
before  failure  would  be  lost.  Also,  reading  too  many  strain  gages  combined 
with  a  fast  loading  rate  causes  sine  function  to  become  discrete  steps, 
similar  to  a  haversine,  which  causes  chugging.  This  can  be  avoided  by 
reading  strain  gages  only  at  prescribed  steps,  which  again  may  prevent 
getting  strain  data  at  failure. 

■  In  addition  to  being  slow,  there  is  also  a  limiting  number  of  strain  gages  that 
can  be  read  since  one  card  is  required  for  every  ten  strain  gages.  A  large 
scale  test  can  have  100  to  200  strain  gages;  this  system  should  really  be 
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limited  to  10  strain  gages,  although  is  can  theoretically  handle  as  many  as 
50. 

■  The  number  of  load  channels  that  can  be  read  during  a  test  are  also  limited 
for  the  same  reason  as  the  strain  gage  channels;  the  chanr^els  are  read 
sequential,  not  parallel.  A  realistic  limit  is  three  to  five  channels  of  load 
control  to  maintain  a  reasonable  throughput  with  a  desirable  level  of  safety. 

A.6  Description  of  the  Hybrid  HP-9826/HP-1000  system 

These  disadvantages  of  the  HP-9826  described  above,  while  significant,  are  not 
insurmountable.  One  solution  that  has  been  used  successfully  on  several  test 
programs  such  as  the  High  Strain  Wing  Repair  has  been  to  link  the  HP-9826  to  the 
HP-1000.  The  HP-9826  is  used  to  control  the  test,  and  the  HP-1000  is  used 
for  data  acquisition.  Specifically: 

■  The  HP-9826  is  tied  to  the  servacs  to  control  the  load  and  the  load 
feedback  to  verify  that  the  load  is  within  tolerance.  The  HP-9826  is  used  to 
perform  the  random  spectrum  fatigue  tests,  and  to  control  the  static  test 
calibrations. 

■  The  HP- 1000  is  for  data  acquisition  during  the  static  test  calibrations. 
Load  cells,  strain  gages,  and  extensiometers  are  read  by  the  HP-1000 
when  commanded  by  the  HP-9826.  The  HP-9826  sends  a  signal  to  the 
HP-1000  at  each  load  increment,  and  the  HP-1000  records  the  data  on 
9-track  tape.  The  HP-9826  send  a  different  signal  when  a  load  point  is 
reached.  The  operator  designates  the  load  points,  and  typically  uses  5  or 
10%  of  design  limit  load  as  the  interval  between  load  points.  There  are 
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between  50  to  100  load  increments  between  each  load  point,  depending  on 
the  loading  rate.  The  load  is  held  during  the  load  point  so  that  the  data  can 
be  reviewed,  and  the  loads  on  each  actuator  can  bo  manually  adjusted  If 
required.  Using  load  points  that  are  5  to  10%  of  the  design  limit  load  also 
reduces  the  amount  of  data,  which  simplifies  the  post-test  analysis  and 
plotting,  while  the  load  increment  data  on  9-traclc  tape  allows  for  failure 
analysis  in  the  event  of  a  catastrophic  failure  or  a  non-linearity  in  the  strain 
or  extensiometer  data. 

The  resulting  hybrid  system  gives  the  most  flexibility.  The  HP-9826  can  run  the 
fatigue  test  unattended,  while  the  HP-1000  is  used  to  perform  post-test  analysis, 
software  development,  or  even  perform  a  different  test.  The  drawback  to  this 
hybrid  system  is  that  there  is  no  strain  data  recorded  during  the  fatigue  test.  If  a 
failure  occurs  during  the  fatigue  test,  there  will  not  be  any  strain  data  to  assist  in 
the  post-failure  analysis. 
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APPENDIX  B 

CSCI-1  HIGH  STRAIN  WING  REPAIR  TEST  PROGRAM  LISTING 
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APPENDIX  B.1 

CSC-1 .1  Test  Executive 
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Pascal  CRev  2.0  10/19/823  HSWR.TEXT  13-Apr-88  14:38:19  Paqe  1 


1;D 

0 

»UCSD$  *LINES  55*  ♦DEBUG  DN  ♦  ♦CODE  ON  ♦ 

2:D 

0 

♦REF 

75*  ♦LIST  ON  ♦  ♦TABLES  OFF* 

3;D 

0 

♦SEARCH  ’ #47 : PASC_L I B . ' , ' #3: TEST_PARM ’ , 

4:D 

0 

'#3:TEST_C0ND’ , ' #3: PUMP_CMDS' , 

5:D 

0 

’#3:LDAD_CMDS’ , ’#3:VAR_DEFIN’* 

6:5 

7:D 

0 

PROGRAM  HSWR; 

B:  5 
9:D 

1 

■:**************************************************> 

10:  D 

1 

ittt 

11:D 

1 

This  program  runs  a  fatigue  test  for 

the 

12:D 

1 

ittt 

High  Strain  Wing  Repair  panel  in  the 

300 

*»»> 

13:  D 

1 

kip  horizontal  actuator  fi>sturea 

ttty 

14:D 

1 

ttty 

15:D 

1 

Written  by  R.  Dalrymple 

ttty 

16:D 

1 

{*** 

ttty 

17:D 

1 

Revision  List; 

ttty 

1B:D 

1 

ittt 

ttty 

19:D 

1 

1.0  12  April  1988 

ttty 

20:  D 

1 

ittt 

ttty 

21  :D 

■  C? 

1 

itttttn.*****************-***************************^ 

m  W 

23:5 

• 

24:5 

25:5 
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26;  D 
27;  D 
28;  D 
29;  S 
30;  D 
31:D 
32;  D 
33;  D 
34;  D 
35;  S 
36:  D 
37;  D 
38:8 
39;  D 
40;  D 
41:D 
42;  D 
43:  D 
44:D 
45:D 
46:D 
47:D 
48:  D 
49:D 
50:  D 
51:D 
52:  D 
53:  D 
54:  D 
55:  D 
56:  D 
57:  D 
58:  D 
59;  D 
60:  D 
61:D 
62:  D 
63:  D 
64 :  D 
65:  D 
66:  D 
67:  D 
68:  D 
69:  D 
70:  D 
71:D 
72:  D 
73:  D 
74:S 
75:8 


1  $PABE$ 

1 

1  LABEL  10. 15, 20, 25, 30, 35, 40, 45p 90; 

1  IMPORT 

1  GENERAL  0, GENERAL_1 , GENERAL_2, GENERAL_3, 

1  CLOCK , I ODECLARAT I DNS , SYSGLOBALS , I OCOMASM , 

1  TEST_PARAMETERS , TEST_COND I T I ONS , 

1  PUMP.COMMANDS , LDAD.COMMANDS , VAR_DEF 1 N I T I DNS ; 

1  CONST 

1  C0RR_VAL=1.08;  <  Correction  to  positive  loads  J 


1  VAR 


I, lOR.P, 

PASS . FL I GHT .POINT, TOTPASS , 

DLDPASS , DLDFLT , OLDPT , 

LBSMAX,  C  Maximum  actuator  load  3 

DLL,  i  Design  limit  load  3 

LDRATE,  {  Loading  rate  3 

LD_TDL,  {  Load  tolerance  3 

UPRBND,  i  Upper  bound  that  triggers  dump  3 

LWRBND,  i  Lower  bound  that  triggers  dump  3 

CAL_DELAY,  i  Used  in  delaying  screen  update  3 
SPEC_VAL,  {  Value  read  from  spectrum  3 

FDBACK,  C  Load  reading  from  load  cell  3 

{  Ramping  goes  from  STRTPC  to  NEXTPC  in  %DLL3 
{  Ramping  goes  from  LASTLD  to  LOADPT  in  lbs. 3 
LDADPT,  i  Loadpt=Nextpt  converted  to  pounds  3 
LASTLD: INTEGER;  <  Previous  Loadpt  3 

FS,  {  Load  cell  full  scale  voltage  3 

NEXTPC,  {  Corrected  load  point  in  3iDLL  3 

STRTPC,  i  Previous  Nextpc  3 

DEL_PC,  £  Difference  of  Nextpc  and  Strtpc  3 

PC_DLL,  £  Load  output  to  actuator  in  5iDLL  3 

PC_DIF,  £  Percent  difference  in  load  at  Hold  3 

OMEGA,  £  Load  rate  converted  to  frequency  3 

T0,T,  £  Starting/current  time  during  Ramp  3 

SIN_TERM:REAL;  £  Value  of  Sine  during  Ramp  3 
REPLY  ;CHAR;  £  Operators  reply  to  questions! 
TIME  ;TIMEREC;  £  System  time  3 

TITLE  ;S80;  £  Title  for  CRT  3 

CNFG  CHNG, £  Flag  for  configuration  change 
FATIGUE,  £  Flag  for  fatigue  test 
REPLY_ok,  £  Used  on  check  operator  on  respnse 
0P_ST0P,  £  Operator  set  switch  to  stop  test 
REF  SCR: BOOLEAN;  £  Flag  to  refresh  screen 
DATA  FILE: TEXT;  £  Spectrum  Data  File 


B-4 


Ky  W  Vf# 


NAWCADWAR-93085-60 


Pascal  CRev  2.0  10/19/823  HSWR.TEXT  13-Apr-88  14:38:19  Page  3 


76:D  -918 

1 

*PABE* 

77;  S 

78:  C 

1 

BEGIN 

79:8 

500:  C 

1 

4Linenum  500$ 

501:8 

502»C 

1 

FATIGUE: =TRUE; 

503»C 

1 

CNFG  CHNG: “FALSE; 

504 »C 

1 

0UTPUT_LQAD<0, 100000) ; 

505  :C 

1 

{  Open  data  file  > 

506  :C 

1 

*I0CHECK  OFF* 

507)|cC 

1 

RESET  <  DATA_F I LE , ’ #48 : WS 1 25 .  TE  X  T  ’ ) ; 

508  :C 

1 

«I0CHECK  ON  i 

509)|tC 

1 

I0R:=I0RESULT; 

5103KC 

1 

IF  lOROO  THEN 

511:C 

2 

BEGIN 

5123KC 

2 

WRITE  (FF,LF,LF,'  Can”t  open  memory 

513*C 

r> 

WRITELNC' volume,  I0result=’ , lOR: 1,LF) ; 

514*C 

WRITE  <'  Hit  any  key  to  continue....’ 

515*C  ^ 

r> 

READ  (REPLY) ; 

516:C 

2 

END; 

517:8 

1000:  C 

1 

$Linenum  1000* 

1001:8 

1002:C 

1 

10: REPEAT 

1003:C 

{  Write  menu  3 

1004*C 

2 

IF  FATIGUE  THEN 

1005:f:C 

nI** 

TITLE; =FAT I GUET I TLE 

1006:C 

ELSE 

1007*C 

3 

TITLE: =ST AT I C_T I TLE ; 

1008:C 

1009*C 

WRITELN(FF, TITLE, LF,LF) ; 

1010:8 

1011*C 

2 

IF  FATIGUE  THEN 

10i2*c 

{03  WRITELN(STRO, ’Static  Test’,LF) 

1013:C 

ELSE 

lOlAtC 

3 

WRITELN<STRO, ’Fatigue  Test’ ,LF) ; 

1015:  8 

lOlhtC 

(13  WRITELN(STR1,LF) ; 

1017)»:C 

2 

{23  WRITELN(STR2,LF) ; 

1018*C 

2 

{33  WRITELN<STR3,LF) ; 

1019J»:C 

{43  WRITELN(BTR4,LF) ; 

1020:8 

1021#C 

2 

{53  IF  DUMPED  THEN 

1022*C 

3 

WRITELN(STR5,LF) 

1023:C 

ELSE 

1024*C 

WRITELN(’  5. ’,LF); 

1025:8 

1026*8 

2 

{63  WRITELN(STR6,LF) ; 

1027*C 

2 

{73  WRITELN(STR7,LF) ; 

1028:8 

1029*C 

2 

{83  IF  FATIGUE  THEN 

1030:  C 

3 

BEGIN 

1031 *C 

WRITE  (STRG. ’Change  number  of  passes’ 

1032*C 

3 

IF  T0TPASS>0  THEN 
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1033*C 

4 

WRITE (',  currently  ' , TDTPABS: 1 ) ; 

lOZAtC 

3 

WRITELN(LF); 

1035: C 

3 

END 

1036: C 

3 

ELSE 

1037*C 

1038:5 

3 

WRITELN(STRB,LF) 5 

1039»C 

2 

IF  NOT (DUMPED)  THEN 

1040*C 

1041:5 

3 

C9> 

WRITELN(STR9) ; 

1042: C 

2 

C  Read  reauest  > 

1043*C 

2 

WRITE  (LF, ' Request?' ) ; 

1044*C 

2 

READ  (REPLY): 

1045»C 

1046:5 

2 

WRITELN(FF); 

1047*C 

2 

iOJ 

IF  REPLY*' 0'  THEN 

104B*C 

1049:5 

3 

FAT I SUE : =NDT ( FAT 1 GUE ) ; 

1050*0 

2 

•C13 

IF  REPLY*' 1'  THEN 

1051 *C 

3 

READ  CONFIG  (FATIGUE, FS,LBSMAX, DLL, LDRATE, 

1052: C 
1053:5 

3 

LD_TOL , CAL_DELAY , PASS , FL I GHT , PO I NT , TOTPASS 

1054*C 

2 

C23 

IF  REPLY*’ 2'  THEN 

1055: C 

3 

BEGIN 

1056*C 

3 

CHNG  SYST  PAR AM  (FS, LBSMAX , DLL) ; 

1057*C 

CNFB_CHNG : =TRUE ; 

1058; C 

3 

END; 

1059:5 

1060*C 

2 

^3> 

IF  REPLY==^3^  THEN 

1061:C 

BEBIN 

1062*C 

3 

CHNG_TEST_PARAM  ( LDRATE , LD^TOL ) ; 

1063*C 

3 

CNFG  CHNG:=TRUE5 

1 064 : C 
1065:5 

3 

END; 

1066*C 

2 

C4> 

IF  REPLY^M"  then 

1067; C 

BEGIN 

1068*C 

WRITE  CONFIG  (FATIGUE, F5e LBSMAX, DLL, LDRATE, 

1069:  C 

3 

LD^TOL , CAL^DEL A Y , PASS , FL I GHT , PO I NT , TOTPASS : 

1070*C 

3 

CNFG^CHNG; «FALSE; 

1071  :C 

1 072 : 5 

3 

END; 

1073*C 

2 

<5> 

IF  REPLY®' 5"  THEN  i  Power-Up  > 

1074*C 

1075:5 

3 

POWER-UP; 

1076*C 

r> 

•C6> 

IF  REPLY®' 6'  THEN  i  Cal  load  reading  > 

1077*C 

1078:5 

3 

CAL^LOAD (FS, CAL^DELAY) ; 

1079*C 

2 

^71 

IF  REPLY®' 7'  THEN 

1080*C 

3 

IF  CNFG^CHNG  THEN 

1081:C 

4 

BEGIN 

•-* 

O 

CD 

W 

n 

4 

IF  PROGRAM. END (FATIGUE)  THEN 

1083*C 

5 

GOTO  90 

1084:  C 

5 

END 

1085:  C 

4 

ELSE 

10B6*C 

1087:5 

4 

GOTO  90; 
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1C)8B»C 

2 

C8>  IF  (REPLY^’S')  AND  FATIGUE  THEN 

1089:  C 

3 

BEGIN 

1090*C 

3 

NUMBER  PASSES ( TDTPASS ) ; 

1091<cC 

3 

CNFG  CHNG:=TRUE; 

1092:  C 

3 

END; 

1093:5 

1094*C 

2 

<:93UNTIL  <REPLY='9’)  AND  NOT  (DUMPED); 

1095:  C 

1 

1096:5 

1097:5 

1098:  C 

1 

<  *****  Initialize  Values  *****  1 

1099:5 

•r 

1100*5 

1 

NEXTPC;=0;  STRTPC:«=0; 

1101*C 

1 

LDADPT : =0 ;  L ASTLD : =0 ; 

1102*C 

1 

UPRBND:=  LD  TOL; 

1103*C 

1 

LWRBND:>=-LD_TOL; 

1104:5 

1105:5 

1106:5 

1107:C 

1 

C  *****  Compute  load  -factors  +or  screen 

1108:5 

1500:  C 

1 

$Linenum  1500$ 

1501:5 

1502*C 

1 

15:STRTPC:=0; 

1503*C 

1 

LASTED: =0; 

1504:5 

i505*C 

1 

DP  STOP:=FALSE; 

1506*C 

1 

REF_SCR;=FALSE; 

1507:5 

1503:  C 

1 

i  Static  or  Fatigue?  > 

1509*C 

1 

IF  NOT (FATIGUE)  THEN 

1510:C 

2 

BEGIN  {  Static  Test  3 

1511*C 

2 

NEXTPC:=0; 

1512*C 

2 

L0ADPT;=0: 

1513*C 

*7 

GOTO  40; 

1514:C 

2 

END; 

1515:5 

1516:  C 

1 

{  Fatigue  Test  3 

1517:5 

151S*C 

1 

OLDPASS:=PASS; 

1519*C 

1 

OLDFLT:=FLIGHT; 

1520*C 

1 

OLDPT:=POINT; 

1521*C 

1 

RESTART  ( PASS , FL I GHT , PO I NT , TDTPASS ) ; 

1522;  C 

1 

<  Reset  counters  3 

1523*C 

1 

IF  NOT( (PASS=OLDPASS)  AND  (FLIGHT=OLDFLT) 

1524:  C 

2 

AND  (POINT=OLDPT) ) 

1525:  C 

2 

BEGIN 

1526*C 

2 

WRITE  (FF,LF,LF, 

1527:  C 

2 

'  Resetting  counters,  please  wait.. 

152B*C 

2 

RESET_COUNTERS ( PASS , FL I GHT , PO I NT+1 ) ; 

1529:  C 

2 

END; 

1 530 :  C 

1 

i  Reset  -file  pointer  3 

1531 *C 

1 

P:  =  (FLlGHT-l )  »108-t-PDINT-l ; 

1532*C 

1 

IF  NOT( (FLIGHT»OLDFLT)  AND  (POINT=OLDPT) ) 

1533:C 

D 

AND  (POO)  THEN 
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1 534 :  C 

2 

BEBIN 

1535^C 

2 

WRITE  (FF,LF,LF,'  Setting  -file  pointer,’. 

1536: C 

2 

’  please  wait....’); 

15373|tC 

2 

RESET(DATA_FILE, ’#48:WS125.TEXT’ ) ; 

15383»:C 

2 

FOR  Is*l  TO  P  DO 

1539*C 

READ (DATA_FILE, SPEC_VAL)  ; 

1540;  C 

1541  :S 
1542:5 

2 

END; 

1543:  C 

1 

{  Find  load  values  > 

1544*5 

1 

READ ( DATA  FILE, SPEC_ VAL ) ; 

1545*C 

1 

NEXTPC:=SPEC_VAL/10; 

1546;  C 

1 

{  Grumman /Boei ng  Vertol  Cor—  > 

1547:  C 

1 

<  rection  for  positive  loads  > 

1548*C 

1 

IF  NEXTPOO  THEN 

1549*C 

2 

NEXTPC: =NEXTPC*CORR_VAL; 

1550*C 

1551:5 

1 

LOADPT:=RDUND (NEXTPC*DLL/ 100) ; 

1552#C 

1 

CNFG_CHNG;=TRUE; 

1553:  C 

1 

1554:  C 

1 

i  Hold  at  starting  point  as  a  final  check  J 

1555*C 

1 

WRITELN<FF, TITLE, LF,LF) ; 

1556*C 

1 

WRITELN(TB,’  Pass  Number  =’ , PASS: 8, LF) ; 

1557#C 

1 

WRITELN(TB,’  Flight  Number  =’, FLIGHT: 8, LF) ; 

1558*C 

1 

WRITELN(TB, ’  Point  Number  *’ ,P0INT;B,LF) ; 

1559*C 

1 

WRITELN(TB, ’  Spectrum  Value  , 

1560:C 

1 

(SPEC_VAL/10) :8: 1 , ’  %DLL’,LF); 

1561*C 

1 

WRITELN(TB, ’Corrected  Value  =’, NEXTPC; 8: 1 , ’  %DLL’,I 

1562*C 

1 

WRITELN<TB, ’  Desired  Load  »’ ,L0ADPT:B, ’  lbs’,TD): 

1563*C 

1 

WRITELN(TB, ’  Hit  any  key  to  start  test,  or’,LF); 

1564*C 

1 

WRITELN  <TB, ’  M  to  return  to  menu. ...’); 

1565*C 

1 

WRITE  (TU,US,UB,TB, ’  Feedback  »' ,LDAD(FS) ;8 

1566:  C 
1567:5 

1 

’  ibs’ ,6S,BS,BS,BS) ; 

1568:  C 

1 

REPEAT 

1569*C 

BYSTIME(TIME) ; 

1570*C 

WITH  TIME  DO 

1571*C 

3 

TO : =H0UR* 3600+M I NOTE* 60+CENT I SECOND/ 1 00 ; 

1572:  C 

REPEAT 

1573*C 

3 

SYSTIME(TIME) ; 

1574*C 

3 

WITH  TIME  DO 

1575*C 

4 

T ; =H0UR*3600+M I NOTE  *60+CENT I SECOND/ 1 00; 

1576*C 

3 

UNTIL  (T-TO) >0.075;  i  75  msec  delay  J 

1577*C 

2 

FDBACK;=LOAD(FS) ; 

1578*C 

1579:5 

2 

WRITE  (BT,FDBACK:8) ; 

1580:  C 

2 

{  Check  for  overload  > 

15B1*C 

2 

IF  (FDBACK>UPRBND)  OR 

1582:  C 

3 

<FDBACK<LWRBND)  THEN 

1583:  C 

3 

BEGIN 

15B4*C 

3 

DUMP; 

1585:  C 

3 

f  Clear  unit  if  key  was  hit  J 

15S6*C 

IF  NOT<UNITBUSY(KEYBRD) )  THEN 

1587:  C 

4 

BEGIN 

1588*C 

4 

READ (REPLY);  C  Character  read  is  not  used 
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1589»C 

4 

WRITE  <BS,SP); 

1590: C 

4 

END; 

1591*C 

3 

WRITELN(BL,LF,LF) ; 

1592*C 

3 

IF.  NEXTPCOO  THEN 

1593»C 

4 

WRITE  (TD)5 

15943ICC 

IF  FDBACK>UPRBND  THEN 

1595: C 

4 

BEGIN 

1596»C 

4 

WRITELNC  Test  stopped  on  Positive  over! 

1597*0 

4 

WRITELN(’  Upper  bound  «  ' , UPRBND: 1 , ^ lbs 

1598: C 

4 

END 

1599; C 

4 

ELSE 

1600: C 

4 

BEGIN 

1601*C 

4 

WRITELN<’‘  Test  stopped  on  Negative  over! 

1602*C 

4 

WRITELN("  Lower  bound  =  ’ , LWRBND: 1 , M bs 

1603: C 

4 

END; 

1604*C 

3 

WRITE  (LF,TB!,TB,TB,US,CR)  ; 

1605*C 

o 

WRITE  (=•  Hit  any  key  to  continue.  ...% TB 

1606*C 

3 

READ  (REPLY); 

1607*C 

3 

GOTO  10;  C  Go  to  Menu  > 

1608: C 
1609: S 

END; 

1610*C 

1611:S 

r> 

UNT I L  NOT ( UN I TBUSY  <  KE YBRD ) ) ; 

16i2*C 

1 

READ  (REPLY); 

1613*C 

1 

IF  (REPLY='*M")  OR  (REPLY==*m’)  THEN 

1614JKC 

1615:S 

'Tk 

GOTO  10;  i  Go  to  Menu  } 

1616*C 

1 

IF  NEXTPC=STRTPC  THEN  i  Increment  counters  J 

1617:C 

2 

BEGIN 

1618*C 

2 

REF_SCR:=TRUE; 

1619*C 

2 

GOTO  35; 

1620:C 

1621 :C 
1622: S 
1623: B 

1 

END; 

1624:C 
1625: S 

1 

{*****  Refresh  Screen  *****  1 

2000: C 

2001 ; S 

1 

$Linenum  2000$ 

2002 *C 

1 

20:WRITELN(FF, TITLE, LF,LF) ; 

2003 *C 

1 

IF  FATIGUE  AND  NDT(0P_ST0P)  THEN 

2004: C 

BEGIN 

2005 *C 

2 

WRITELN(TB,’  Pass  Number  =% PASS: 8, LF) ; 

2006 *C 

'7 

WRITELN(TB,’  Flight  Number  =% FLIGHT: 8, LF) ; 

2007 *C 

WRITELN(TB, Point  Number  =% POINT:  8,  LF)  ; 

200B*C 

2 

WRITELN(TB,^  Spectrum  Value 

2009:  C 

2 

(SPEC_VAL/10)  :8:  1, '  7.DLLSLF); 

2010*C 

2 

WRITELN(TB, ’Corrected  Value  , 

2011:C 

2 

NEXTPC;8:1,’  7.DLL’,LF); 

2012:C 

r> 

A. 

END 

2013: C 

ELSE 

2014:C 

2 

BEGIN 

2015*C 

r? 

WRITELN(TB,’  Ramping  to  %NEXTPC:5:1, 

2016: C 

r> 

’7.  of  DLL%LF); 

2017*C 

WRITELN(TB,TB, ’  ’ , (2*NEXTPC/3) : 5: 1 , 
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2018: C 

2 

'*/.  o-f  TUL',LF,LF); 

2019:C 
2020: S 

2 

END; 

2021 »C 

1 

WRITELNdB. '  Desired  Load  . LOADPT: B, '  1 

2022 *C 

1 

WRITELN<TB. '  Hit  any  key  to  halt  test....’) 

2023»C 

1 

WRITE  <TU.TB,’  Feedback  LOAD (FS) : 

2024 :C 
2025:5 

1 

’  ibs’,BS,BS,BS,BS); 

2026#C 

2027:5 

2028:5 

2029:5 

1 

REF_SCR:*FALSE; 

2030: C 
2031:5 

1 

{  %%%%%  Compute  Load  Factors  > 

2500 :C 

1 

$Linenum  2500$ 

2501:5 

* 

2502*C 

1 

25: DEL^PC: =NEXTPC-5TRTPC5 

2503 #C 

1 

OMEGA :=ABS(LDRATE/ (2*DEL„PC/ 100*DLL) ) ; 

2504*0 

1 

IF  (L0ADPT-LA5TLD) >0  THEN  . 

2505: C 

BEGIN 

2506*C 

2 

UPRBND: =LDADPT+LD_TOL; 

2507 *C 

2 

LWRBND: =LA5TLD~LD.TDL; 

2508: C 

2 

END 

2509: C 

EL5E 

2510: C 

2 

BEGIN 

2511*C 

2 

UPRBND : =LA5TLD+LD_TDL ; 

2512*C 

LWRBND:  ='L0ADPT’~LD_T0L; 

2513: C 
2514:5 

END; 

2515:C 

1 

i  Find  starting  time  3 

2516*C 

1 

SY5TIME(TIME) ; 

2517*C 

1 

WITH  TIME  DO 

2518*C 
2519:5 
2520; 5 
2521:5 

2 

T 0 :  =H0UR  * 36004-M I  NOTE  *  60+CENT I  SECOND  / 1 00 : 

2522: C 
2523:5 

1 

<;  *****  Ramp  *****  > 

3000 : C 

3001 : 5 

1 

^Linenum  3000$ 

3002: C 

1 

30:  i  Determine  value  of  next  load  step  > 

3003 *C 

1 

SYSTIME<TIME> ; 

3004 *C 

1 

WITH  TIME  DO 

3005 *C 

2 

T: =H0UR*3600+MINUTE*60+CENTI SECOND/ lOO-TOi 

3006 *C 

1 

IF  <0MEGA*T)<0.5  THEN 

3007 *C 

2 

SIN  TERM: =0. 5* (SIN (PI * (2*0MEGA*T-0. 5) ) +1 ) 

3008: C 

2 

ELSE 

3009 *C 
3010:5 

2 

SIN_TERM:=1.0; 

3011 :C 

1 

i  Step  up  loads,  read/display  loads  > 

3012*C 

1 

PC  DLL:=DEL_PC*SIN_TERM+STRTPC5 

3013*C 

1 

output_loadTpc_dll*dll/ioo, LBSMAX) ; 

3014*C 

1 

SCAN  1000  (FALSE) ; 

3015#C 

1 

FDBACK:=LOAD(FS) ; 

3016*C 

1 

WRITE  (BT,FDBACK:B) ; 
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3017: S 

3018: C 

1 

{  Check  for  overload  > 

3019»C 

1 

IF  (FDBACK>UPRBND)  OR 

3020: C 

2 

(FDBAOK<LWRBND)  THEN 

3021 :C 

2 

BEGIN 

3022*C 

2 

DUMP; 

3023: C 

2 

i  Clear  unit  if  key  was  hit  > 

3024 *C 

2 

IF  NDT<UNITBUSY(KEYBRD) )  THEN 

3025: C 

3 

BEGIN 

3026*C 

3 

READ (REPLY) 5  i  Character  read  is  not  used  > 

3027 *C 

3 

WRITE  (BS,SP)5 

3028: C 

3 

END; 

3029»C 

2 

WRltELN(BL,LF,LF); 

3030*C 

2 

IF  FDBACK>UPRBND  THEN 

3031 :C 

3 

BEGIN 

3032ICC 

3 

WRITELN(’'  Test  stopped  on  Positive  overloadM 

3033*C 

3 

WRITELN(’  Upper  bound  =  % UPRBND: 1 , " 1 bs'M  ; 

3034 : C 

3 

END 

3035: C 

ELSE 

3036: C 

3 

BEGIN 

3037*0 

■5; 

WRITELNC*  Test  stopped  on  Negative  overload”) 

3038*0 

3 

WRITELN(”  Lower  bound  =  ” , LWRBND: 1 , ” 1 bs” ) ; 

3039: 0 

3 

END; 

3040*0 

WRITE  <”  Hit  any  key  to  continue....”); 

3041*0 

2 

READ  (REPLY); 

3042*0 

2 

GOTO  10;  i  Go  to  Menu  > 

3043:0 

3044 :S 

*7 

END; 

3045:0 

1 

{  Check  for  external  dump  > 

3046*0 

1 

IF  DUMPED=TRUE  THEN  {Machine  is  in  dump! 

3047:0 

2 

BEGIN 

3048*0 

2 

IF  NOT(UNITBUSY(KEYBRD) )  THEN  i  Clear  unit  > 

3049*0 

3 

READ (REPLY);  i  Character  read  is  not  used  > 

3050*0 

2 

WRITELN(BL,CR,LF,LF,TB, ” External  dump  at  ”, 

3051:0 

2 

PC_DlL;2:2,  ”7.  of  DLL”); 

3052*0 

r> 

WRITELN(TB,”  Hit  any  key  to  zero  command  signal 

3053*0 

2 

WRITE  (TB,”  and  continue....”); 

3054*0 

READ  (REPLY); 

3055*0 

r> 

DUMP; 

3056*0 

2 

GOTO  10;  {Go  to  Menu  > 

3057 : 0 
3058:  5 

2 

END; 

3059:0 

1 

{  Operator  want  test  halted?  > 

3060*0 

1 

I F  NOT ( UN I TBUBY ( KE YBRD ) )  THEN 

3061:0 

BEGIN  {  Any  key  hit  will  halt  test  > 

3062*0 

2 

READ (REPLY);  {  Character  read  is  not  used  > 

3063*0 

2 

NEXTPC:=PC_DLL; 

3064*0 

LOADPT: GROUND (DLL*PC.DLL/ 100) ; 

3065*0 

2 

GOTO  40;  {  Go  to  Hold  > 

3066:0 

3067 :  S 

2 

END; 

3068:0 

1 

{  Reached  load  point?  > 

3069*0 

1 

IF  BIN_TERM<1.0  THEN 

3070*0 

3071 :  S 

2 

GOTO  30;  {  Go  to  Ramp  > 
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3072»C 

1 

IF  DP_ST0P  THEN 

3073: C 

2 

i  Dump  pump  i'f  switch  is  set  7 

3074*C 

2 

IF  SWITCH  SET (2)  THEN 

3075:  C 

3 

BE6IN 

3076*C 

3 

DUMP? 

3077*C 

3 

WRITELN(FF,TD,TB, 'Test  stopped  and  pump  dumped') 

307B*C 

3 

WRITELNdB, ’per  operator  request.’); 

3079*C 

3 

WRITE  <TD,TB, ’  Hit  any  key  to  continue.... 

30B0»C 

3 

READ  (REPLY); 

30B1»C 

3 

GOTO  10:  <  Go  to  Menu  3 

3082:  C 
3083:  S 

3 

END; 

3084*0 

1 

IF  NOT (FATIGUE)  OR  OP^STOP  THEN 

30B5*C 

3086:5 

2 

GOTO  40;  i  Hold  if  Static  test  or  switch  &ei> 

^3087 *C 

1 

IF  NEXTPOSTRIPL  THEN 

*3088:  C 

'P 

BEGIN 

3089*C 

ih  »WliLh_t>c.1  j  1  i  iLis 

3090 *C 

bUiU  4u;  i  Holu  at 

3091  :C 

2 

ENiJ 

309:^* 

2 

El.oE 

3093 »;l, 

xr  EU.  TK’PN 

So-r  Zn, 

/  ;  cj 

•  nru  -r  Hr  ■  d  a"  vv;!-:?  . 

-^•‘.'  70* 

•  r.' ....wuer  s  *****  3- 

-.-r-  5  ^ 

*! 

'•Lan^riL:fr 

1  ..  ’  i.- 

J 

35 . :s^A+l; 

;  •;  ■“-! 

rUl NT : =P0INT+1 : 

’■  I 

X 

WRITE  (TU.TU): 

C 

1 

IF  PDINT=lb9  THEN  {  New  Flight  3 

^.wK.#6:  C 

2 

BEGIN 

3507 *C 

2 

P0INT:=1; 

3508*C 

2 

FLIGHT:«FLIGHT+1; 

3509 *C 

2 

WRITE  (US, US); 

3510*C 

2 

OP  STOP:*=FALSE; 

351 1*C 

2 

IF  FLIGHT=356  THEN  i  New  Pass  3 

3512:C 

3 

BEGIN 

3513»C 

FLIGHT:=1: 

3514*C 

3 

PASS:=PASS+l5 

3515*C 

3 

IF  SWITCH_SEt(0)  THEN  {  Hold  at  end  of  pass 

> 

3516*C 

4 

OP  ST0P:*TRUE; 

3517*C 

3 

WRITE  (BT,US,US,PASS;B,LF,LF) ; 

3518*C 

3 

INCR  COUNTER (3); 

3519*C 

RESET (DATA_FILE, ’ #48: WS 125. TEXT’ ) ; 

3520; C 

3 

END; 

3521 *C 

r> 

IF  SWITCH.SET(l)  THEN  i  Hold  at  end  of  flight 

J 

3522 *C 

3 

OP  ST0P:«TRUE; 

3523 *C 

WRITE  (BT,FLIGHT:8,LF,LF) ; 

3524 *C 

2 

INCR  COUNTER (2); 

3525: C 
3526:5 

2 

END; 
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3527)|tC 

1 

WRITE  <BT,PDINTsB) ; 

3528 UcC 

1 

INCR.CDUNTERd) ; 

3529: S 
3530»C 

1 

STRTPCs^NEXTPC; 

3531 *C 

1 

LASTLDs«LOADPT; 

3532 : S 

3533 : C 

1 

i  I-f  Switch  0  or  1  is  set,  automat i 

3534 )|cC 

1 

IF  OP  STOP  THEN 

3535; C 

2 

BEGIN 

3536^0 

2 

NEXTPCs=0; 

3537  nee 

2 

L0ADPTs=0; 

3538*C 

2 

GOTO  20; 

3539s C 

2 

END; 

3540:5 

3541 sC 

1 

{  Find  load  values  1 

3542*C 

1 

READ ( DATA^F I LE , SPEO_ V AL ) ; 

3543*C 

1 

NE  X  TPO  s  =SPEO_ VAL / 1 0 ; 

3544 :C 

1 

{  Grumman/Boeing  Vertol  Cor —  > 

3545: C 

1 

-C  rection  for  positive  loads  > 

3546*C 

1 

IF  NEXTPC.X)  THEN 

3547*0 

2 

NEXTPOs  =NEXTPC*00RR_VAL; 

3548*C 

1 

LD ADPT  s  =RDUND  <  NE  X  TPO  *  DLL / 1 00  > ; 

3549:5 

3550*0 

1 

IF  NEXTPC=STRTPO  THEN 

3551*0 

GOTO  35;  {  Increment  counters  i-f 

3552:5 

3553*0 

1 

IF  REFUSER  THEN 

3554*0 

2 

GOTO  20;  i  Refresh  Screen  > 

3555: 5 
3556*0 

1 

WRITE  <BT,POINT:B,LF,LF) ; 

3557*0 

1 

WRITE  (BT, <SPE0  VAL/ 10) : 8: 1 , LF, LF) ; 

3558*0 

1 

WRITE  (BT, NEXTPO: 8; 1 , LF, LF) ; 

3559*0 

1 

WRITE  (BT,LOADPTsB,LF,LF) ; 

3560*0 

1 

WR I TE  <  BT , FDB AOK ; 8 ) ; 

3561:5 

3562*0 

1 

GOTO  25; 

3563: E 
3564:5 
3565: 5 
3566:0 

1 

•C  *****  Hold  *****  > 

3567:5 
4000: 0 

1  $Linenum  4000$ 

4001 : 5 

4002*0 

1  40 

sSTRTPCs=NEXTPCs 

4003*0 

1 

LASTLDs=LOADPT; 

4004*0 

1 

UPRBNDs«LOADPT+LD  TOLs 

4005*0 

1 

LWRBNDs  =LASTLD-LD_TOL; 

4006:5 

4007*0 

1 

WRITELN(FF, TITLE, LF,LF) ; 

4008*0 

1 

WRITELN(TB,"  Holding  at  %NEXTPCs5s 

4009:0 

1 

=•7.  of  DLL^LF); 

4010*0 

1 

WRITELN(TB,TB, ’  %  (2*NEXTPC/3) s 5s 1 . 

4011:0 

1 

’*7.  of  TULSLF,LF); 

4012*0 

1 

WRITELN(TB,"  Desired  Load  ^^LOADPTi 

4013:0 

1 

"  lbs%TD); 
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4014»C 

1 

IF  NEXTPCOO  THEN  WRITELN<LF,LF,LF) ; 

4015*C 

4016:S 

1 

WRITELN(TB,’  Hit:'); 

4017*C 

1 

IF  FATIGUE  THEN 

AOlBtC 

2 

WRITELN(TB, ’  C  to  Continue  test  were  stopped') 

4019: C 

2 

ELSE 

4020: C 

2 

BEGIN 

402 1»C 

2 

WRITELNCTB.'  S  to  trigger  data  Scan'); 

4022»C 

o 

WRITELN(TB, '  L  for  next  Load  point'); 

4023: C 

4024 :S 

2 

END; 

4025*C 

1 

IF  NEXTPC®0  THEN 

4026»C 

2 

WRITELN<TB,'  M  to  return  to  the  Menu  ',US) 

4027 :C 

2 

ELSE 

4028»C 

4029:5 

2 

WRITELN(TB, '  U  to  Unload  ',TB,TU,US); 

4030»C 

1 

WRITE  (TU.US); 

4031 »C 
4032:5 

1 

IF  NDT(FATiGUE)  THEN  WRITE(US); 

4033 *C 

1 

FDBACK: =L0AD (FS) ; 

4034 

1 

WRITE  <TB, '  Feedback  *',FDBACKiB, 

4035: C 

1 

'  lbs' ,BS,BS,BS,BS) ; 

4036 *C 

1 

IF  NEXTPCOO  THEN 

4037: C 

2 

BEGIN 

4038»C 

2 

WRITELN(LF) ; 

4039*0 

2 

WRITELN(T5, 'Absolute  Difference  , 

4040 :C 

•~y 

A. 

( FDB ACK-LO ADPT ) ; B , '  1 b  s ' , LF ) ; 

4041 *C 

2 

PC_D I F ; «ABS  < 1 -FDBACK/LOADPT ) * 1 00 ; 

4042 *C 

IF~PC_DIF<0. 1  THEN  PC_DIF:=0; 

4043*C 

o 

write”  <T5, '  Percent  Difference  , 

4044 ;C 

2 

PC_DIF:B:1,'  7.' ,  BS,  BS,  TU) ; 

4045: C 
4046:5 

2 

END; 

4500: C 
4501:5 

1 

♦Linenum  4500$ 

4502: C 

1 

45:  {  Inner  loop  repeats  until  operator  )• 

4503: C 

1 

•C  responds,  and  Outer  loop  repeats  J 

4504: C 

1 

{  until  operator  response  is  ok  > 

4505: C 

1 

REPEAT  C  Outer  loop  > 

4506: C 

2 

REPEAT  €  Inner  Loop  > 

4507 *C 

o 

FDBACK : =L0AD ( FS ) ; 

4508*C 

3 

WR ITE  ( BT . FDBACK : 8 ) ; 

4509*C 

3 

IF  NEXTPC<>0  THEN 

4510: C 

4 

BEGIN 

4511*C 

4 

WRITE  <LF,LF,BT,( FDB ACK-LO ADPT ) : B , LF , LF ) ; 

4512*C 

4 

PC  DIF: =ABS  < 1 -FDBACK/LOADPT ) » 1 00 ; 

4513*C 

4 

IF~PC  DIF<0. 1  THEN  PC_DIFi*0; 

4514*C 

4 

WRITE  (BT,PC_DIF:B:1,TU); 

4515:C 

4516:5 

4 

END; 

4517*C 

0* 

SYSTIME<TIME) ; 

451B*C 

3 

WITH  TIME  DO 

4519*C 

4 

TO :  ■'HOUR  *3600+M  I  NUTE»60+CENT  I  SECOND/ 1 00 ; 

4520:  C 

3 

REPEAT 

452 1*C 

4 

SYSTIME(TIME) ; 
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4522*C 

4 

WITH  TIME  DO 

4523»C 

5 

T: »H0UR*3600+M I NUTE»60+CENT I SECOND/ 

4524*C 

4 

UNTIL  (T-TO) >0.075;  {  75  msec  delay  > 

4525; S 

4526: C 

3 

i  Check  for  overload  3 

4527*C 

3 

IF  (FDBACK>UPRBND)  OR 

4528: C 

4 

<FDBACK<LWRBND)  THEN 

4529 :C 

4 

BEGIN 

4530JICC 

4 

DUMP; 

4531 :C 

4 

{  Clear  unit  if  key  was  hit  > 

4532»C 

4 

I F  NOT ( UN I TBUS Y ( KE YBRD ) )  THEN 

4533: C 

5 

BEGIN 

4534 *C 

5 

READ (REPLY) 5  {  Character  read  is 

4535»C 

5 

WRITE  (BS,SP); 

4536: C 

5 

END; 

4537»C 

4 

WRITELN(BL,LF,LF); 

4538*C 

4 

IF  NEXTPCOO  THEN 

4539*C 

5 

WRITE  (TD); 

4540:|cC 

4 

IF  FDBACK>UPRBND  THEN 

4541:C 

5 

BEGIN 

4542*C 

5 

WRITELN< 

4543: C 

5 

'  Test  stopped  on  Positive  overli 

4544  JKC 

5 

WRITELN< 

4545: C 

5 

^  Upper  bound  =  ,  UPRBND:  1 ,  ”  lbs' 

4546: C 

5 

END 

4547: C 

5 

ELSE 

4548 :C 

5 

BEGIN 

4549*C 

5 

WRITELN( 

4550: C 

5 

'  Test  stopped  on  Negative  overli 

455 1»C 

5 

WRITELN( 

4552 :C 

5 

'  Lower  bound  =  ' , LWRBND: 1 , ' lbs 

4553: C 

5 

END; 

4554*C 

4 

WRITE  <LF,TB,TB,TB,US,CR) ; 

4555»C 

4 

WRITE  ('  Hit  any  key  to  continue.  •• 

4556: C 

4 

TB,BT,BS,BS) ; 

4557»C 

4 

READ  (REPLY) ; 

455S*C 

4 

GOTO  10;  <  Go  to  Menu  > 

4559: C 

4 

END; 

4560 :  S 
4561»C 

UNTIL  NOT(UNITBUSY(KEYBRD) ) ;  <  Inner  loop 

4562:5 

4563*C 

O 

READ (REPLY) ; 

4564*C 

2 

WRITE (BS,SP,BS) ; 

4565:5 

4566»C 

2 

IF  NEXTPC*0  THEN 

4567*C 

3 

REPLY  OK: *( (REPLY®' M' )  OR  (REPLY®'m')) 

4568:  C 

3 

ELSE 

4569)|cC 

3 

REPLY.0K:=( (REPLY®' U')  OR  (REPLY®' u' )) ; 

4570:5 

4571 *C 

o 

IF  FATIGUE  THEN 

4572: C 

3 

BEGIN 

4573JICC 

3 

IF  (REPLY®'C')  OR  (REPLY®'c')  THEN 

4574»C 

4 

REPLY^OK:=TRUE; 

4575: C 

3 

END 

4576; C 

3 

ELSE 
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4577»C 

3 

4578:  C 

4 

4579*0 

4 

4580:  S 
4581 ;C 

2 

45B2*C 

2 

4583: S 
4584*C 

1 

45B5*C 

2 

4566: S 
4587 »C 

1 

458B:C 

2 

45B9*C 

2 

4590*C 

2 

4591 :C 

2 

4592 :S 
4593*C 

1 

4594*C 

1 

4595: S 
4596*C 

1 

4597: C 

*7 

4598*C 

2 

4599: C 

2 

4600*C 

2 

4601 :C 

2 

4602: C 

4603*C 

X. 

4604 *C 

4605*C 

2 

4606 :C 

3 

4607 *C 

3 

4608 *C 

o 

4609: C 

3 

4610*C 

2 

4611*C 

4612:C 

2 

4613:5 

4614*C 

1 

4615:C 

2 

4616*0 

2 

4617*C 

2 

4618*0 

2 

4619*C 

2 

4620: C 

2 

4621:5 

4622 *C 

1 

4623:  C 

2 

4624 *C 

2 

4625*C 

2 

4626*C 

2 

4627*C 

4628*C 

2 

4629: C 

2 

4630:  5 

4631  :C 

IF  (REPLY='SM  OR  (REPLY«’sM  OR 
( REPLY* ’■LM  OR  <REPLY*"1")  THEN 
REPLY_OK:*TRUE; 

i  Outer  loop  > 

UNTIL  REPLY^OK; 

IF  (REPLY="M')  OR  (REPLY="m")  THEN 
BOTO  10;  i  Bo  to  Menu  > 

IF  (REPLY*' S')  OR  (REPLY*' s')  THEN 
BEGIN 

SCAN^IOOO  (TRUE); 

GOTO  45;  i  Continue  hold  > 

END; 

WRITELN(LF,LF) ; 

IF  NEXTPCOO  THEN  WRITELN (LF,  LF, LF> ; 

IF  (REPLY*' C')  OR  (REPLY*'c')  THEN 
BEGIN 

OP_STOP;*FALSE; 

i  Find  load  values  > 

NE  XTPC : *SPEC_VAL/ 1 0 ; 

{  Brumman/Boeing  Vertol  Cor —  > 
i  rection  for  positive  loads  > 

IF  NEXTPOO  THEN 

NEXTPC:  *NEXTPC)|cCORR_VAL; 

IF  NEXTPC*STRTPC  THEN  C  Increment  counters  > 
BEGIN 

REF_SCR:*TRUE; 

GOTO  35: 

END; 

LO ADPT : *R0UND ( NE  X  TPC  *DLL / 1 00 ) ; 

GOTO  20;  i  Go  to  Refresh  Screen  3 
END; 

IF  (REPLY*' U')  OR  (REPLY*' u')  THEN 
BEGIN 

NEXTPC:=0; 

L0ADPT:*0; 

0P.ST0P:*TRUE; 

GOTO  20;  i  Go  to  Refresh  Screen  > 

END; 

IF  (REPLY*' L')  OR  (REPLY*'!')  THEN 
BEGIN 

WRITELN(TB,TB,TB,TB) ; 

WRITELN (LF, TB, TB, TB, TB) ; 

WRITELN (TB, TB, TB, TB)  ; 

WRITELN (TB,TB,TB,TU) ; 

WRITE  (BL,CR,'What  is  new  load  point 
' in  percent  of  DLL?  ' ) ; 
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4632; C 

3 

$IQCHE0K  0FF$ 

4633»C 

3 

READLN(NEXTPO) ; 

4634 :C 

U"* 

♦lOOHEOK  ON  $ 

4635*0 

3 

I0R:=I0RESULT; 

4636*0 

3 

IF  lOROO  THEN 

4637*0 

4 

WRITE  <0R,LF,'Try  again,  new  load  point?  M 

463B:0 

4 

ELSE 

4639*0 

4 

IF  ABS<DLL*NEXTP0/100) >LBSMAX  THEN 

4640:0 

5 

BEGIN 

4641*0 

5 

WRITELN (OR, LF,T5, 'Maximum  load  is 

4642:0 

5 

LBSMAX: 1, ' lbs  (', ROUND (LBSMAX /DLL* 100) : 1, 

4643:0 

5 

'7.  DLL)',LF); 

4644*0 

5 

WRITE  (T5,'Try  again,  new  load  point?  '); 

4645*0 

5 

I0R:=1; 

4646:0 

5 

END; 

4647*0 

3 

UNTIL  I0R=:0; 

4648: B 

4649*0 

aL. 

IF  NEXTP0=STRTP0  THEN 

4650:0 

3 

BEGIN 

4651*0 

WRITE  <BL) ; 

4652*0 

GOTO  40;  ^  Go  to  Hold  > 

4653:0 

3 

END; 

4654:5 

4655*0 

L0ADPT:=R0UND(NEXTP0*DLL/100) ; 

4656:5 

4657*0 

2 

GOTO  20;  -C  Go  to  Refresh  Bcreen  > 

4658:0 

2 

END; 

4659:5 

9000:0 

1 

$Linenum  9000$ 

9001:5 

9002*0 

1 

90:WRITELN<TD) ; 

9003*0 

1 

WRITELN(TB, 'Program  Ended....'); 

9004*0 

1 

END. 

9005: 5 

9006 :  S 

9007:5 

l>lo  errors.  No  warnings. 

4[ $ « Hi <(  Nonstandard  language  features  enabled 
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1:D 
2:D 
3:5 
4:D 
5:D 
6:5 
7:D 
8:5 
9:5 
10:D 
11:5 
12:D 
13:D 
14:D 
15:D 
16:D 
17:5 
18:D 
19:D 
20:  D 
21:D 
22:  D 
23:  D 
24;D 
25:  D 
26:  D 
27:  D 
28:  D 
29:  D 
30:  D 
31:D 
32:D 
33:  D 
34:5 
35:  D 
36:  D 
37  :D 
3B:S 
39:  D 
40  :D 
41:D 
42:  D 
43:  D 
44:D 
45:D 
46:D 
47:  D 
48:  D 
49:D 
50:  D 
51:S 
52:D 
53:  D 
54:  S 


0  «UCSD«  «LINES  55« 

0  MODULE  VAR_DEFINITIDNS; 

1  <  Converted  "for  use  on  the  High  > 

1  I  Strain  Wing  Repair  Tests  > 

1  <  Revision  dated  20  November  1987  > 


1  EXPORT 


1  TYPE 

1  M0NTHS=ARRAYL1. . 12D  OF  STRINGt93; 

1  LD  TYP« ARRAY Cl. .7503  OF  INTEGER; 

1  S20=STRINGC203; 

1  S80-STRINGC803; 


CONST 

KEYBRD*2; 
PRINTER=701; 
BL=CHR<  7); 
BS=CHR(  8); 
LF=CHR(10) ; 
FF=CHR(12) ; 
CR=CHR(13); 
US=CHR<31) ; 
SP=CHR<32) ; 
TB=’ 

T5=’ 


ISC  -for  the  Keyboard 
Device  selector  -for  Printer 


ASCII  character  -for  bell  > 

ASCII  character  -for  back  space! 

ASCII  character  for  line  feed  > 

ASCII  character  for  form  feed  > 

ASCII  char  for  carrage  return  > 
i  ASCII  character  for  up  space  > 

i  ASCII  character  for  space  > 

' ;  {  Tab  > 

io=‘  ■ :  <5  space  tab! 

BT*'#OO8#OOB#O0B#OO8#0O8#00B#OOB#0O8;  tBack  tab 
TD=#010#010#010#010;  «Tab  down! 
TU=#031#031#031#031;  CTab  up  ! 
SCR_RESET“«008#008#  03 1 #03 1 #03 1 #03 1 ; 


1  THISM0NTH=M0NTHSC’ January’ , ’February’ , ’March’ , 

1  ’ Apri 1 ’ , ’ May’ , ’ June’ , ’ Jul y ’ ,  ’  August ’ , 

1  ’ September ’ , ’ October ’ , ’ November ’ , ’ December ’ 3 ; 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


FATIGUETITLE 
STATIC.TITLE 
STR0=’  0. 
STR1«=’  1. 

STR2=’  2. 
STR3»’  3. 
STR4=’  4. 


*=’  HIGH  STRAIN  WING  REPAIR  FATIGUE  TEST 

»’  HIGH  STRAIN  WING  REPAIR  STATIC  TEST’ 

Switch  to  ’ ; 

Read  configuration  files’; 

Change  System  parameters’; 

Change  Test  parameters’ ; 

Write  configuration  files’; 


STR5=’ 

STRb®’ 

STR7«’ 

STRB=’ 

STR9*’ 


5.  Power  up  the  pump’; 

6.  Calibrate  load  reading’; 

7.  End  program’ ; 

8.  ’; 

9.  Begin  test’; 


1  PIs3. 14159; 

1  DELTAT*0.05;  {Time  increment  for  cal  routines! 
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Pascal 

CRev 

2.0  10/19/823  VAR_DEFIN 

.TEXT 

16-Dec-87  14:32:35  Page 

55 

D 

1 

«Page« 

56 

D 

1 

57 

D 

1 

SlotO  «  0; 

{  400 

> 

5B 

D 

1 

Slotl  •=  4096; 

i  401 

> 

59 

D 

1 

Slot2  »  8192; 

{  402 

> 

60 

D 

1 

Slot3  «  12288; 

i  403 

y 

61 

D 

1 

Slot4  «  16384; 

<  404 

y 

62 

D 

1 

Slot5  «  20480; 

{  405 

y 

63 

D 

1 

Slot6  «  24576; 

<  406 

y 

64 

D 

1 

Slot7  -  28672; 

i  407 

y 

65 

D 

1 

Slot8  —32768; 

C  408 

y 

66 

D 

1 

Slot9  —28672; 

{  409 

y 

67 

D 

1 

Slot  10—24576; 

<  410 

y 

68 

D 

1 

Slot  11—20480; 

i  411 

y 

69 

D 

1 

Slot  12— 16384; 

{  412 

y 

70 

D 

1 

Slot  13—1 2288; 

{  413 

y 

71 

D 

1 

Slot  14— 8192; 

{  414 

y 

72 

S 

73 

D 

1 

EventSensel  *» 

SlotO; 

i 

Checks  pufflp  and  switches  > 

74 

D 

1 

Relay  0ut_l  « 

Slotl; 

i 

Controls  pump  and  counters  } 

75 

D 

1 

D_to_A_l 

Slot 2; 

76 

D 

1 

A_to_D_l  ■ 

Slot4; 

* 

77 

D 

1 

Relay_0ut_2  = 

Slotl4; 

i 

Used  to  trigger  HP-IOOO  > 

78 

iS 

79 

D 

1 

IMPLEMENT 

80 

C 

1 

END. 

81 

S 

No  errors.  No  warnings. 

ttttt  Nonstandard  language  -features  enabled  »»»«» 
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1:D 
2:D 
3:S 
4:D 
5:S 
6:D 
7:D 
8:8 
9:D 
10:8 
11:8 
12:D 
13:D 
14:D 
15:8 
16:0 
17:D 
18:0 
19:0 
20:8 
21:0 
22:8 
23:0 
24:8 
25:0 
26:  C 
27;  C 
28:  C 
29:  C 
30:  C 
31:C 
32;  C 
33:  C 
34  :C 
35:  C 
36 :  C 
37:  C 
38:8 
39:8 
40:  0 
41:8 
42:0 
43:  8 
44:0 
45:0 
46:8 
47:C 
48:  C 
49:  C 
50:  C 
51:C 
52:  C 
53:  C 
54:  C 
55:8 


0  «UCSD«  «L1NE8  55$ 

0  $SEARCH  ’^PA8C  LIB. ' ,  '  #3:  VAR^DEFIN’ $ 

^7 

0  MODULE  PUMP_C0MMANDS5 

1  <  Converted  for  use  on  the  High  > 

1  C  Strain  Wing  Repair  Tests  > 

1  {  Revision  dated  24  November  1987  > 


1  IMPORT 

1  GENERAL  0, GENERAL. 1, 

1  I ODECL AR AT IONS, V AR.DEF I N I T 1 ONS ; 

1  EXPORT 

1  PROCEDURE  POWER.UPs 

1  FUNCTION  DUMPED  : BOOLEAN? 

1  PROCEDURE  DUMP; 

1  IMPLEMENT 

1  <  POWER.UP  *****  J 

1  PROCEDURE  POWER.UP  ? 

2  BEGIN 

2  CZero  the  load  > 

2  WRlTEW0RD<12,-4000)  ?  <.  DTE,SYE  On  J 

2  WRITEW0RD(12,D_to_A_l) ; 

2  C  Output  the  voltage  > 

2  WRITEW0RD<12,-4064) ;  <  TME  0-f-f,  SYE  On  > 

2  WRITEWORD(12,-4000) ;  i  DTE, SYE  On  > 

2  <  Close  the  relay  3- 

2  WRITEW0RD(12,-4000) ;  i  DTE, SYE  On  > 

2  {  Pin  9:  (9-l)''2«256  > 

2  WRITEW0RD(12,Relay_0ut_l+256) ; 

2  END;  i  Proceedure  Power.Up  3 


1  {  *****  DUMPED  *****  3 


1  FUNCTION  DUMPED* BOOLEAN; 

2  VAR 

-4  2  W0RD7S INTEGER?  <  7  bit  word  3 

2  BEGIN 

2  I0C0NTR0L<12,3,-3792);  i  IEN,SYE,TME  On  3 

2  I0C0NTR0L(12, 1, 1) ; 

2  WRITEW0RD(12,-393A) f  <  1SL,SYE  On  3 

2  I0C0NTR0L(12,3,0) ; 

2  W0RD7*  =4095- ( lOSTATUS ( 12, 3) +32768) ;  C4095=7777H3 

2  DUMPED*  =W0RD7< 64?  {  64«2'-6  3 

2  END;  {  Proceedure  Dumped  3 
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56:  S 

57:D  1  <  *»*»»  DUMP  **»*»  > 

58:8 

59; D  1  PROCEDURE  DUMP; 

60: C  2  BEGIN 

61 :C  2  [Open  the  relay! 

62: C  2  I0CDNTR0L(12,0, 1) ; 

63: C  2  WRITEWDRD(12,-4000) ;  [  DTE,SYE  On  > 

64: C  2  WRITEW0RD(12,Relay_Dut_l) ; 

65; C  2  [Zero  the  load  output! 

66;C  2  WRITEWDRD(12,-4000) ;  i  DTE, BYE  On  ! 

67: C  2  WRITEW0RD(12,D_to_A_l); 

68; C  2  END;  {  Proceedure  Dump  ! 

69:8 

70: C  1  END. 

No  errors.  No  warnings.  ***** 

Nonstandard  language  features  enabled  »»»*» 
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CSC-1 .4  Load  Commands 
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1:D 

0 

2:D 

0 

3:S 

4;D 

0 

5:S 

6:D 

1 

7:D 

1 

8:D 

1 

9:D 

1 

10:D 

1 

11:D 

1 

12:S 

13:D 

1 

14:S 

15:S 

16:D 

1 

17:D 

1 

18:D 

1 

19:S 

20:  D 

1 

21:D 

1 

22:  D 

1 

23:  D 

1 

24:  D 

1 

25:  S 

26:  D 

1 

27:  S 

28:  S 

29:  D 

1 

30  :S 

31  :D 

-8 

1 

32:  S 

33:  D 

"8 

2 

34;D 

-12 

2 

35:  S 

36:  C 

2 

37*C 

2 

38:  S 

39:  C 

o 

40:  C 

2 

41:C 

2 

42:  C 

2 

43«C 

2 

44*C 

2 

45*C 

3 

46»C 

2 

47*C 

2 

48:  S 

49*C 

2 

50:  S 

51:S 

52:  D 

1 

53:  S 

54:  D 

-8 

1 

55:  S 

«UCSD$  CLINES  55«  «DEBUG  ON  % 

♦SEARCH  '#3:PASC.LIB. '  #3:  VAR^DEFIN' ♦ 

MODULE  LOAD^COMMANDS; 

i  Converted  -for  use  on  the  High  > 

i  Strain  Wing  Repair  Tests.  > 

{  Notes:  > 

i  -  500kip  load  cell  used  > 

i  -  Command:  lOV  *  LBSMAX  > 

i  “  Feedback:  FS<volts)  «  SOOkips  > 

i  Revision  dated  23  November  1987  > 


IMPORT 

GENERAL  1 , I ODECL AR AT I ONS , 

S YSGLOB ALS , CLOCK , VAR^DEF I N I T I ONS ; 

EXPORT 

PROCEDURE  0UTPUT_,L0AD  (CMDSIG: REAL;  LBSMAX; INTEGER) ; 
FUNCT I ON  LOAD  ( FS : REAL ) : I NTEGER ; 

PROCEDURE  CAL^LOAD  <FS:REAL;  VAR  CAL^DELAY: INTEGER) ; 
PROCEDURE  SCAN. 1000  (PRINT: BOOLEAN) ; 

IMPLEMENT 


{  OUTPUT.LOAD  »»»♦»  > 

PROCEDURE  OUTPUT.LOAD  (CMDSIG: REAL;  LBSMAX : INTEGER) ; 
VAR 

V: INTEGER; 

BEGIN 

WRITEW0RD(12,-4000) ;  <  DTE,  SYE  On  1 

i  Convert  +rom  OUT.LD  to  Volts,  LSB«5mV> 

i  L  CMDSIG  3  C  lOV  3  > 

<  C - 3*C - 3  > 

{  L  LBSMAX  3  C0.005V3  > 

V: GROUND ( 10/0. 005tCMDSIG/LBSMAX ) ; 

IF  V<0  THEN  {  Correct  negative  voltage,  > 
V:*=V4-4096;  <  set  sign  bit,  10  bit  word  > 

V: *V+D_to.A.l ;  C  Correct  for  slot  > 
WRITEW0Rd7i2,V) ;  {  Output  voltage  > 

END;  i  Proceedure  Output.Load  } 


i  ttttt  LOAD  ttttt  y 
FUNCTION  LOAD  <FS: REAL) : INTEGER; 
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56:  D 

-8 

2 

VAR 

57:  D 
56:5 

-12 

2 

V: INTEGER} 

59:  C 

2 

BEGIN 

60:  C 

2 

<  Read  voltage  > 

61»C 

2 

WRITEW0RD(12,-3920) ;  i  ISL,  SYE,  TME  On  > 

62»C 

2 

WRITEW0RD(12,A_to_D_l> } 

63J|tC 

64:5 

2 

READWORD  (12,V); 

65:  C 

2 

■C  Convert  volts  to  load  > 

66«C 

2 

V:«v+3276B}  i  Subtract  IRQ  (lOOOOOoct)  > 

67*C 

2 

IF  V>2047  THEN  <  Correct  negative  voltage,  > 

6B*C 

3 

V:bV-4096;  <  subtract  sign  bit  > 

69:  C 

2 

{  LSB»5mV  for  lOV  range,  > 

70:  C 

2 

{  FS=500,0001bs,  50/FS  =  resol  lotion  in  pounds  J 

7HltC 

72:5 

2 

LOAD: eROUND ( (0. 005»V) * <500000/FS) > } 

73»C 

74:5 

75:5 

2 

END;  C  Function  Load  > 

76:  D 
77:5 

1 

<  CAL_L0AD  *****  y 

78:  D 
79:5 

-8 

1 

PROCEDURE  CAL_L0AD  <FS:REAL}  VAR  CAL_DELAY: INTEGER) ; 

80:  D 
81:5 

-8 

LABEL  10; 

82:  D 

-8 

2 

VAR 

83:  D 

-9 

2 

REPLY: CHAR; 

84:D 

-18 

2 

T,TO  : INTEGER; 

85:  D 
86:5 

-22 

2 

TIME  :TIMEREC; 

87:  C 

2 

BEGIN 

BStC 

2 

10: IF  CAL  DELAY=0  THEN 

89*5 

3 

CAL  DELAY: =100; 

90  »C 

2 

WRITELN(FF,TD,TD,TD,LF,LF,LF) ; 

91*C 

2 

WRITELN(’  Hit  any  key  to  end  calibration,  or 

92*C 

2 

WRITELN<'  "D"  to  change  cal  printout  delay’) 

93*C 

9 

2 

WRITE  (US,  US,  US, US,  US, US,  US,  US) ; 

94*C 

2 

WRITE  (’  Feedback  =’ , LOAD (FS) : B, ’  lbs’); 

95*C 

96:5 

2 

WRITE  (BT,BS,BS,BS,BS) ; 

97:  C 

2 

REPEAT 

9B*C 

3 

WRITE  (LOAD(FS) :B,BT) ; 

99*C 

3 

SYST1ME<TIME); 

100*C 

3 

WITH  TIME  DO 

101»C 

4 

TO ; «H0UR»360000+M I NUTE  »6000+CENT I SECOND; 

102:  C 

3 

REPEAT 

103*C 

4 

SYSTIME<TIME>; 

104»C 

4 

WITH  TIME  DO 

105*C 

5 

T : =HOUR * 360000+M I NUTE  46000+CENT I SECOND ; 

106*C 

4 

UNTIL  (T-TO) >R0UND(CAL_DELAY/10) ;  i  delay  in  mil 

107*C 

108:5 

3 

UNTIL  NOT<UNITBUSY<KEYBRD))} 

109*C 

110:C 

2 

2 

RE AD (REPLY); 

,LF) ; 
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111«C 
112:C 
113»C 
114*C 
115:C 
116»C 
117*C 
118»C 
119:C 
120»C 
121:8 
122:8 
123:  D 
124:8 
125:  D 
126:8 
127:D 
128:  D 
129:  D 
130:8 
131;C 
132»C 
133:  C 
134:  C 
135:C 
136:C 
137:8 
138*C 
139*C 
140:  C 
141»C 
142:8 
1431ICC 
144*C 
145*C 
146«C 
147;C 
148»C 
149*C 
150»C 
151»C 
152»C 
153:8 
154*C 
155:8 
156:C 
157:8 
158:8 


2  IF  (REPLY®’D’)  DR  (REPLY*’ d')  THEN 

3  BEGIN 

3  WRITELN(FF,TD) ; 

3  WRITELN(’  Current  delay  is  ’ , CAL_DELAY : 1 , 

3  ’  milliseconds’ ,LF) ; 

3  WRITE  <’  What  is  desired  delay  in  milliseconds?  ’); 

3  READLN(CAL_DELAY) ; 

3  GOTO  105 

3  END; 

2  END;  €  Proceedure  Cal_Load  > 


1  C  »«»»»  SCAN_1000  »***»  J 

1  PROCEDURE  SCAN_1000  ( PR I NT: BOOLEAN > ; 

2  VAR 

- 1 2  2  RELAY2 , TO , T : I NTEGER ; 

-16  2  TIME  :TIMEREC5 

2  BEGIN 

2  WRITEW0RD(12,-4000) 5  <  DTE,  8 YE  On  > 

2 

2  {  Relay  1  logic  "1"  triggers  scan  j 

2  {  Relay  2  =  ”0"  for  tape  file  during  ramping  > 

2  {  =  ”1''  for  printout  at  a  hold  point  > 

2  IF  PRINT  THEN 

3  RELAY2:*2  <  Set  relay  2  to  logic  "I"  > 

3  ELSE 

3  RELAY2:=0;  i  Set  relay  2  to  logic  "0"  3 

2  WR I TEWORD ( 1 2 , Rel ay_0ut _2+ 1 +RELA Y2 ) ; 

2  SYSTIME(TIME) 5 

2  WITH  TIME  DO 

3  TO: »HOUR»360000+MINUTE*6000+CENTISECDND; 

2  REPEAT 

3  BYSTIME(TIME) ; 

3  WITH  TIME  DO 

4  T: »H0UR»360000+M1NUTE»6000+CENTISEC0ND; 

3  UNTIL  (T-T0)>2;  E  20  millisecond  delay  > 

2  WRITEW0RD(12,Relay_0ut_2+0+0) 

2  END;  {  Proceedure  Scan_1000  > 

1  END. 


No  errors.  No  warnings.  ^  ***** 

Nonstandard  language  features  enabled 
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Pascal 

CRev  2.0 

10/19/B2D  TEST_PARM.TEXT  6-Apr-8B  14 

;07:01  Page  1 

1 

D 

0 

$UCBD«  $SEARCH  '#3: VAR  DEFIN'$  fLINES  55$ 

2 

D 

0 

$DEBUG  ON  % 

3 

S  ■ 

4 

D 

0 

MODULE  TEST.PARAMETERS; 

5 

S 

6 

D 

1 

C  Converted  -for  use  on  the  High  > 

7 

D 

1 

{  Strain  Wing  Repair  Tests  > 

8 

D 

1 

{  Notes:  > 

9 

D 

1 

{  -  500  kip  load  cell  used  > 

10 

D 

1 

i  -  Command:  lOV  «  LGSMAX  > 

11 

D 

1 

i  -  Feedback:  FS (volts)  *  500  kips> 

12 

S 

13 

D 

1 

i  Revision  List:  > 

14 

D 

1 

{  1.0  23  November  1987  > 

15 

D 

1 

<  1.1  4  January  1988  > 

16 

D 

1 

{  Added  Program^End  to  Export  > 

17 

D 

1 

{  •  list,  which  was  mistakenly  > 

18 

D 

1 

{  excluded  from  Version  1.0  > 

19 

D 

1 

{  1.2  6  April  1988  > 

20 

D 

1 

i  Changed  Restart  to  355  > 

21 

D 

1 

•C  flights  of  108  points.  > 

22 

S 

S 

24 

D 

1 

IMPORT 

25 

D 

1 

VAR^DEFI NIT IONS; 

26 

S 

27 

D 

1 

EXPORT 

28 

S 

29 

D 

1 

PROCEDURE  CHNB_SYST_PARAM  (VAR  FS:REAL; 

30 

D 

2 

VAR  LBSMA  X , DLL : I NTEGER  > ; 

31 

D 

1 

PROCEDURE  CHNG  TEST.PARAM  (VAR  LDRATE,LD, 

,TOL:  INTEGER) ; 

32 

D 

1 

PROCEDURE  NUMBER  PASSES  (VAR  TOTPASS: INTEBER) ; 

33 

D 

1 

PROCEDURE  RESTART  (VAR  PASS, FLIGHT, POINT, 

TOTPASS: INTEGER 

34 

D 

1 

PROCEDURE  READ  CONFIG  (FATIGUE: BOOLEAN; 

35 

D 

2 

VAR  FS:REAL;  VAR  LBSMAX,DLL,LDRATE,LD_ 

,TOL,  CAL_DELAY, 

36 

D 

2 

PASS , FL I GHT , PO I NT , TOTPASS : 1 NTEGER ) 

m 

9 

37 

D 

1 

PROCEDURE  WRITE_CONFIB  (FATIGUE: BOOLEAN; 

FS:REAL; 

38 

D 

2 

LBSMAX . DLL , lBrATE , LD_T0L , CAL_DELAY , 

39 

D 

2 

PASS. FLIGHT, POINT, TOTPASS: INTEGER) ; 

40 

D 

1 

FUNCT I ON  PROGRAM_END  ( FAT I GUE : BOOLEAN ) : BOOLEAN ; 

41 

S 

42 

D 

1 

IMPLEMENT 

43 

S 

44 

D 

1 

{  »«»«»  CHNG_SYST_PARAM  tttt*  > 

45 

S 

46 

D 

1 

PROCEDURE  CHNG_SYST_PARAM  (VAR  FS:REAL; 

47 

D 

2 

VAR  LBSMAX , DLL: INTEGER ) ; 

48 

S 

49 

D 

2 

LABEL  10; 

50 

S 

51 

D 

2 

VAR- 

52 

D  -8 

2 

MAX  LD,TUL: INTEGER; 

53 

D  -16 

2 

POUNDS  :REAL; 

54 

D  -17 

2 

REPLY  :CHAR; 

55 

S 
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56:  C 

2 

57*C 

2 

58:  C 

3 

59*C 

3 

60*C 

3 

61:C 

62:  B 

3 

63*C 

64:5 

2 

65»C 

2 

66:  C 

3 

67*C 

3 

6B»C 

3 

69:  C 

70:5 

3 

71*C 

72:5 

2 

73:  C 

74:5 

X 

75*C 

3 

76*C 

3 

77*0 

78:5 

3 

79*C 

3 

80  *C 

o 

S1*C 

3 

82*C 

3 

83:  C 

3 

84:  C 

3 

85:  C 

3 

86:  C 

3 

87*C 

3 

88:  C 

89:5 

3 

90*C 

3 

91*C 

3 

92:  C 

w* 

93:  C 

94:  C 

3 

95:  C 

■y 

w 

96*C 

3 

97:  C 

98:5 

99*C 

100*C 

3 

101»C 

3 

102*C 

3 

103*C 

3 

104:  C 

3 

105*C 

4 

106»C 

4 

107*C 

4 

108:  C 

4 

109:  C 

4 

110:C 

4 

BEGIN 

IF  DLL«=0  THEN 
BEGIN 

REPLY: =’0’; 

GOTO  10; 

END; 

TUL:  “ROUND  <  1 .  SHtDLL) ; 

IF  LBSMAX=0  THEN 
BEGIN 

REPLY: =’ M's 
GOTO  10; 

END; 

MAX^LD;=ROUND<LBSMAX/TULtlOO) ; 

REPEAT 

WRITELN<FF,LF,LF) ; 

WRITELN(T5, 'Design  Limit  load  is  ’,DLL:6, '  lbs’); 
WRITELN<T5!, 'Test  Ultimate  load  is  ',TULs6,  ’  lbs',LF) 

WR I TELN  < ’ Control  System : ' ) ; 

WRITELN(T5, 'Maximum  Load  is  '  ,MAX_LD:6, ’7.TUL' ) ; 
WRITELN<T5, 'Maximum  Load  is  ’,LBSMAX:6,'  lbs’); 
WRITELN(T5, 'Bet  Bervac  Span  to 
ABS(LBSMAX/500000*10) :5:2) ; 

{  5  mV  Resolution  > 

i  Resolution: - - - J 

{  10  V  LBSMAX  > 

WRITELN<T5. 'Resolution  is  ', 

ABB (ROUND (LBSMAXtO. 005/ 10) ) :B, ’  lbs’ ,LF) ; 

WRITELN < ’ Feedback  System: ’ ) ; 

WRITELN<T5, 'Full  scale  -for  500  kips  is  ', 

FS;6:3,’  volts'); 

{  5  mV  Resolution  J 

{  Resolution: - - - > 

^  FS  300  kips  > 

WR I TELN <T5, 'Resolution  is  ', 

ABB (ROUND (0.005/FS»500000) ) :4, ’  lbs’ ,LF,LF) ; 


Hit:' ); 

b 

M 

V 


WRITELN (’ 

WRITELN (’ 

WRITELN (’ 

WRITELN (' 

WRITE  (’ 

REPEAT 

READ (REPLY) ; 

WRITE (BB, BP, BS); 
UNTIL  (( (REPLY*’ D' ) 
( (REPLY® 'M' ) 
( (REPLY*' V’ ) 
(REPLY*'  ')) 


to  change  Design  limit  load’); 
to  change  Maximum  actuator  load’) 
to  change  -full  scale  Voltage’); 


<space>  to  exit  ’); 


OR  (REPLY*’ d')) 
OR  (REPLY*’ m')) 
OR  (REPLY*' V’)) 


OR 

OR 

OR 
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111:8 

112»C 

113:C 

114*C 

115»C 

116«C 

117*C 

iie»c 

119*C 
120*C 
121»C 
122:C 
123:8 
124*C 
125:  C 
126*C 
127»C 
128*C 
129*C 
130*C 
131»C 
132*C 
133:  C 
134:5 
135#C 
136:  C 
137#C 
13B»:C 
139;C 
140tC 
141»C 
142:C 
143:  C 
144*C 
145:C 
i46*C 
147:8 
148:5 
149:5 
150:  D 
151:5 
152:0 
153:5 
154  :D 
155:5 
156:D 
157;D 
158:D 
159:D 
160:5 
161:C 
162»C 
163:  C 
164JICC 
165#C 


3  10:  IF  (REPLY=’'DM  OR  <REPLY='d’’)  THEN 

4  BEGIN 

4  WRITELN(FF,TD) ; 

4  IF  lbsmax=6  then 

5  REPLY: M” ; 

4  WRITE  (’  Enter  Design  Limit  Load  in  pounds  -- 

4  READLNCDLL); 

4  DLL:«=AB5(DlL)  ; 

4  TUL: «R0UND ( 1 . 5*DLL) 5 

4  MAX  LD: GROUND (LB8MAX/TUL* 100) ; 

4  END; 

3  IF  (REPLY=’MM  DR  (REPLY='m")  THEN 

4  BEGIN 

4  WRITELN(FF,TD); 

4  WRITE(’  Enter  the  maximum  test  load  in  pounds  - 

4  READLN (POUNDS) ; 

4  LBSMAX : =R0UND ( ABS ( POUNDS ) ) ; 

4  MAX^LD: GROUND (LBSMAX/TUL»100) ; 

4  IF  FS«0  THEN 

5  REPLY: 

4  END; 

3  IF  (REPLY="V=*)  OR  <REPLY=  W  )  THEN 

4  BEGIN 

4  WRITELN(FF,TD) ; 

4  WRITE(^  What  is  corresponding  % 

4  "“voltaae  for  500k ips?  ’* ) ; 

4  READLN(FS); 

4  FS:=ABS(FS); 

4  END; 

3 

3  UNTIL  REPLY=’’  '  ; 


2  END;  C  Procedure  Chng_Syst_Param  > 


1  i  ttttt  CHNG_TE5T_PARAM  > 

1  PROCEDURE  CHNG^TEST^PARAM  ( VAR ^LDRATE, LD.TOL: INTEGER) ; 

2  LABEL  10; 

2  VAR 


-4 

2 

MAX  LD  : INTEGER; 

-12 

2 

POUNDS  :REAL; 

—  13 

2 

REPLY  :CHAR; 

2 

BEGIN 

2 

IF  LDRATE=0  THEN 

3 

BEGIN 

3 

REPLY: =’L" ; 

3 

GOTO  10; 
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166;  C 

3 

END; 

167;S 

168:C 

2 

REPEAT 

169;S 

170»C 

3 

WRITELN(FF.TD,TB, 'Loading  Rate  is 

171:C 

3 

LDRATE:6, '  Ibs/sec' ,LF) ; 

172JICC 

3 

WRITELN(TB,'  Tolerance  is  ’,LD_TDL:6, '  lbs',TD); 

173:5 

174*C 

3 

WRITELN('  Hit:'); 

175»C 

3 

WRITELN(’  L  to  change  Loading  rate'); 

176»C 

3 

WRITELNC  T  to  change  Tolerance'); 

177»C 

3 

WRITE  (’  <space>  to  exit  '); 

178;  C 

3 

REPEAT 

179*C 

4 

READ (REPLY); 

180$C 

4 

WRITE (BS.SP.BS) ; 

181»C 

4 

UNTIL  ( ( (REPLY«'L’ )  OR  (REPLY^'l'))  DR 

182:  C 

4 

<(REPLY*'T')  DR  (REPLY**' t ' ) )  OR 

183:  C 

4 

(REPLY*'  ’)); 

184:5 

185»C 

3 

10: IF  (REPLY*’L')  OR  (REPLY*'!')  THEN 

186:C 

4 

BEGIN 

187*C 

4 

WRITELN(FF.TD) ; 

IBBfC 

4 

WRITE  ('  What  is  the  ', 

189:C 

4 

'loading  rate  in  Ibs/sec?  '); 

190*C 

4 

READLN  (LDRATE) ; 

191*C 

4 

LDRATE: =ABS (LDRATE) ; 

192i»cC 

4 

IF  LD_TOL=0  THEN 

193*8 

5 

REPLY; *’T'; 

194:C 

4 

END; 

195:5 

196*C 

3 

IF  (REPLY*' T')  OR  (REPLY*' t')  THEN 

197:C 

4 

BEGIN 

198*C 

4 

WRITELN(FF,TD) ; 

199*C 

4 

WRITE ('  Enter  tolerance  in  pounds  -  '); 

200*C 

4 

READLN (LD  TOL); 

201  *C 

4 

LD_TDL;*ABB(LD_TOL) ; 

202  :C 

4 

END; 

203:  5 

204 *C 

3 

UNTIL  REPLY*'  '; 

205:  C 

206*C 

2 

END;  -C  Procedure  Chng_Test_Param  > 

207:5 

208:5 

209  :D 

1 

{  »»»«»  NUMBER.PASSES  »*»**  > 

210:5 

211:D 

1 

PROCEDURE  NUMBER_PASSES  (VAR  TOTPASS; INTEGER) ; 

212:C 

2 

BEGIN 

213*C 

2 

WRITELN(FF,TD) ; 

214*C 

2 

WRITE  ('  How  many  passes  to  be  run?  '); 

215*C 

2 

READLN  (TOTPASB); 

216»C 

2 

END;  {  Proceedure  Number _Passes  > 

217:5 

218:5 

219:D 

1 

<  «»»«»  RESTART  »*»»»  > 
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221  :D 

1 

PROCEDURE  RESTART  (VAR  PASS, FLIGHT, POINT, TOTP ASS 

222:  D 

2 

223:  D 

224  :S 

2 

LABEL  1,2; 

225:  D 

2 

VAR 

226: D  -1 

227:5 

2 

REPLY: CHAR; 

228:  C 

2 

BEGIN 

229»C 

2 

IF  T0TPASS<«0  THEN 

230»C 

NUMBER  PASSES  (TOTPASS) ; 

231  »C 

2 

IF  (FLIGHT=355)  AND  (P0INT=10B)  THEN 

232:  C 

3 

BEGIN 

233«C 

3 

PASS:»PASS+1; 

234*C 

3 

FLIGHT:«=1; 

235*C 

3 

POINT; =1; 

236*8 

3 

GOTO  2; 

237  :C 

238:5 

END; 

239*C 

2 

IF  PASS>0  THEN 

240»C 

241:5 

3 

GOTO  2; 

242*C 

2 

1:  WRITELN<FF,LF,LF) ; 

243:  C 

2 

• 

244  :C 

2 

<  Find  Pass  number  > 

245*C 

2 

IF  T0TPASS=1  THEN 

246*C 

3 

PASS:=1 

247  :C 

3 

ELSE 

248  ;C 

REPEAT 

249*C 

4 

WRITELN(TD) ; 

250 *C 

4 

WRITELN(TB. ’Enter  the  Pass  number  ’); 

251»C 

4 

WRITE  (TB,TB, ’between  1  and  ’, TOTPASS; 3, 

252 *C 

4 

READ  (PASS); 

253»C 

4 

UNTIL  ((PASS >6)  AND  (PASS<=TDTPASS) ) ; 

254  :C 

2 

255  :C 

2 

C  Find  Record  number  > 

256;  C 

2 

REPEAT 

257*C 

3 

WRITELN(LF,TB, ’Enter  the  Flight  number’); 

258*C 

■w* 

WRITE  (LF,TB,TB, ’between  1  and  355  -  ’); 

259*8 

o 

READ  (FLIGHT); 

260*8 

261:5 

UNTIL  ((FLIGHT>0)  AND  (FLIGHT<356) ) ; 

262:8 

2 

C  Find  Point  number  > 

263:8 

2 

REPEAT 

264*8 

3 

WRITELN; 

265*8 

3 

WRITELN(TB, ’Enter  the  Point  number  ’); 

266*8 

3 

WRITE  (LF,TB,TB, 'between  1  and  108  -  ’); 

267*8 

3 

READLN  (POINT); 

268*8 

269:5 

3 

UNTIL  ( (P0INT>0)  AND  (POINT< 109) ) ; 

270*8 

2 

2:  WRITELN (FF, TD) ; 

271*8 

2 

WRITELN(TB,’  Pass  Number  «=’ ,PASS:4,LF) ; 

272*8 

2 

WRITELN(TB, ’  Flight  Number  ,FLIGHT:4,LF) ; 

273*8 

2 

WRITELN(TB,’  Point  Number  *’ ,P0INT;4,LF) ; 

274*8 

2 

WRITE  (TB, ’Restart  at  this  point?  (Y  or  N)  - 

275:8 

2 

REPEAT 

-  '); 


); 
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276»C 

3 

READ  <REPLY) ; 

277*C 

3 

WRITE  (BS,SP,BS): 

27B»C 

3 

IF  (REPLYc’N’)  OR  (REPLY*' n')  THEN 

279*C 

4 

BOTO  1; 

280»C 

3 

UNTIL  ( (REPLY*' Y')  OR  (REPLY*' y' )) : 

281  :S 

282*C 

2 

IF  PASS>T0TPA55  THEN 

283*C 

3 

TDTPA55:*PAS5; 

284 tC 

2 

END;  {  Proceedure  Restart  } 

285  :S 

286:8 

287  :D 
2B8:S 

1 

i  »»»»»  READ.CONFIG  «»»«»  > 

2B9:D 

1 

PROCEDURE  READ  CONFIG  (FATIGUE: BOOLEAN; 

290:  D 

2 

VAR  FS:REAL;  VAR  LBSMAX,DLL,LDRATE,LD_TOL,CAL_DELAY, 

291  :D 

2 

PA55, FLIGHT, POINT, TOTPASS: INTEGER) ; 

292:5 

293  ;D 

2 

VAR 

294  ;D 

-8 

2 

I, I OR  : INTEGER; 

295:  D 

-9 

2 

REPLY  :CHAR; 

296  ;D 

-52 

2 

F I LENAME . OLDNAME : 520 ; 

297  ;D 

-716 

2 

CONFIG  FILE  :TEXT; 

298:5 

299;  C 

2 

BEGIN 

zootc 

2 

IF  FATIGUE  THEN 

301  tC 

3 

OLDNAME :  =  ^  HSWRFCFG " 

302:  C 

3 

ELSE 

303 *C 

3 

OLDNAME: ="HSWRSCFG" ; 

ZOAtC 

2 

DELETE (FILENAME, 1 , LENGTH (FILENAME) ) ; 

3053ICC 

2 

WRITELN(FF,TD,Tb> ; 

306 *C 

2 

WRITELN(T5, 'What  is  file  name  to  be  read?',LF); 

307  *C 

2 

IF  FATIGUE  THEN 

308  »C 

3 

WRITE  (T5, 'Default  is  "HSWRFCFG"  -  ') 

309  :C 

3 

ELSE 

310*C 

3 

WRITE  (T5, 'Default  is  "HSWRSCFG"  -  '); 

311*C 

2 

READLN  (FILENAME): 

312*C 

2 

IF  LENGTH (FI LENAME )<1  THEN 

3133ICC 

3 

F I LENAME : =OLDNAME : 

314!*cC 

2 

F I LENAME : =CONCAT ( ' #3 : ' , F I LENAME ) ; 

3155ICC 

FILENAME:*=CONCAT  (FILENAME,  '  .TEXT')  ; 

316:  C 

2 

$IOCHECK  OFF* 

317J|tC 

2 

RESET ( CONF I G.F I LE , F I LENAME ) ; 

318:C 

2 

*IOCHECK  ON  * 

319J>:C 

2 

IOR:=IORESULT; 

320 »C 

2 

IF  lOROO  THEN 

321  :C 

3 

BEGIN 

322*C 

3 

WRITELN(TD,T5, 'Can"t  open  file  FILENAME, LF) 

323 *C 

3 

WRITELN (T5, ' lOresul t=  ' , lOR: 1 , LF) ; 

324 *C 

3 

WRITE  (T5j,'Hit  any  key  to  continue.  •••') ; 

325l:C 

3 

READ (REPLY) ; 

326:  C 

3 

END 

327;  C 

3 

ELSE 

328:  C 

3 

BEGIN 

329»C 

3 

READ (CONFIG  FILE, FS, LBSMAX, DLL, 

330;  C 

3 

LDRATE,LD  TOL,CAL  DELAY, 
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331  :C 
332»C 
333 :C 
334:5 
335*C 
336:5 
337:5 
338  :D 
339:5 
340:  D 
341  :D 
342:  D 
343:5 
344  :D 
345 ;D 
346  :D 
347:  D 
348 :D  - 
349:5 
350:  C 
351  »C 
352 #C 
353  :C 
354 »C 
w*55^C 
356 »C 
357»C 
358fC 
359 *C 
360 :  C 
361  *C 
362»C 
363 #C 

364  JKC 

365 


36o^L 
3o7  ii  C 


Z7AtC 
375*5 
376*C 
377  :C 
378:  C 
379:  C 
380 *C 

381  :C 

382  :C 
383*C 
384  :C 
385:5 
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3  PASS , FL I BHT , PO I NT , TOTPASS ) ; 

3  CLOSE ( CONF I B_F I LE ) ; 

3  END; 

2  END;  {  Proceedure  Read_Con-fig  > 


1  i  *****  WRITE_C0NFI6  »»»*»  > 

1  PROCEDURE  WRITE  CONF IB  < FAT I BUE: BOOLEAN;  FS:REAL; 

2  LBBMAX, DLL, LDRATE, LD_TOL, CAL.DELAY, 

-8  2  PASS , FL I BHT , PO I NT , TOTPASS : I NTEBER ) ; 


-8  2  VAR 

-12  2  lOR  :INTEBER; 

-13  2  REPLY  :CHAR; 

-56  2  F I LENAME , OLDNAME : S20 ; 

720  2  CONFIB_FILE  :TEXT; 


2  BEBIN 

2  IF  FAT I BUE  THEN 

3  OLDNAME : = ’ HSWRFCFB ' 

3  ELSE 

3  OLDNAME : = ’ HSWRSCFB ' ; 

2  DELETE ( F I LENAME , 1 , LENBTH ( F I LENAME  > ) ; 

2  WRITELN<FF,TD,Tb) ; 

2  WRITELN(T5, 'What  is  -file  name  to  be  written?’ ,LF;  ; 

2  IF  FAT I BUE  THEN 

3  WRITE  (T5, ’Default  is  ’’HSWRFCFB  ’  -  ’) 

3  ELSE 

3  WRITE  (T5, ’Default  is  ’ = HBWKSCFB ' ’  - 

2  READLN  (FILENAME;; 

2  IF  LENBTri<Fli_LNAI-iE..  <3  I  F'-.N 

3  FlLENAl'-it;;=DLDNAME; 

2  F 1  LEWAI'-iE :  -COi  iCAT  (  '  #3 :  ’  .  F ''  I..ZNFME ;  : 

2  FILC’''hMH  ■  =C  DN!;:A1  (FILENAME,  ’  .TE.  i  >  r 

2  iLOCHECL  OFFS 

REWF'  i  TF  ( CIINP  I  fa,  F  I  LE .  F  i  utWHilt ; ; 

2  SIQCHh'Cr;  ON 

2  1 UF-: :  =  I  URilouL  i  ; 

7  U  luR<.>0  THEN 

3  btBIN 

3  WRITELN(TD,T5, ’Can”t  open  file  ’,  FILENAME, ’,’ ,LF) ; 

3  WRITELN(T5, ’ lOresult*  ’,I0R:1,LF); 

3  WRITE  <T5, ’Hit  any  key  to  continue....’); 

3  READ  ( REPLY ') ; 

3  END 

3  ELSE 

3  BEBIN 

3  WR I TELN ( CONF IB_FILE,FS, LBSMA  X , DLL , 

3  LDRATE , LD  TOL , CAL_DELAY , 

3  PASS . FL I BHT , PO I NT , TOTPASS  > ; 

3  CLOSE  ( CONF I B_F I LE , ’ SAVE ’ ) ; 

3  END; 
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386»C 
387:8 
388:8 
389:  D 
390 sS 
391  sD 
392:8 
393:  D 
394  :D 
395:8 
396  sC 
397*C 
398*C 
399»C 
400»C 

401  :C 

402  s  C 
403 *C 
404 *C 
405 »C 
406  sC 
407Jl^C 
408*C 
409*0 
410sC 
411sS 
412*C 
413:8 
414*C 
415:5 
416:8 
417:C 
418:8 


2  END;  {  Proceedure  Write^Config  3 


1  i  *»**«  PROeRAM^END  »»***  > 

1  FUNCTION  PROGRAM.END  (FATIGUE: BOOLEAN) s BOOLEAN; 

2  VAR 

-1  2  REPLY: CHAR; 

2  BEGIN 

2  WRITELN(BL,FF,TD);. 

2  WRITELN<"  Are  you  sure  you  want  to  end  the  program?") 

2  IF  FATIGUE  THEN 

3  WRITE ("  Con-figuration  changes  and/or  the  -fatigue", 

3  CR,LF,"  test  counters") 

3  EL8E  ' 

3  WRITE <"  Con-figuration  changes"); 

2  WRITELN("  will  be  lost. . . . " ,TD) ; 

2  WRITE  ("  End  the  program (Y  or  N)?  "); 

2  REPEAT 

3  READ  (REPLY); 

3  WRITE  (B8,8P,B8); 

3  UNTIL  (REPLY="Y")  OR  (REPLY="y")  OR 

3  (REPLY="N")  OR  (REPLY="n"); 

2  PROGRAM^END : =  ( ( REPLY* " Y " )  OR  ( REPLY* " y " ) ) ; 

2  END;  i  Function  Program_End  > 


1  END.  i  Test  Parameters  3 


No  errors-  No  warnings. 

*****  Nonstandard  language  -features  enabled  ***** 
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1 

D 

0 

«UCSD«  »LINES  55» 

2 

D 

0 

♦SEARCH  ' #47: PASC_LIB. ' , ' #3: VAR_DEFIN’ * 

3 

S 

4 

■r 

D 

0 

MODULE  TEST_CONDITIDNS; 

3 

6 

D 

1 

{  Converted  for  use  on  the  High  > 

7 

D 

1 

{  Strain  Wing  Repair  Tests  > 

8 

8 

9 

D 

1 

<  Revision  dated  16  November  1987  > 

10 

D 

1 

i  for  Switch_Set  > 

11 

D 

1 

1  Revision  dated  16  December  1987  > 

12 

D 

1 

C  for  remaining  procedures  > 

13 

S 

14 

D 

1 

IMPORT 

15 

D 

1 

GENERAL  0, GENERAL. 1, 

16 

D 

1 

lODECLARATIONS, VAR.DEFINITIONS; 

17 

S 

18 

D 

1 

EXPORT 

19 

5 

20 

D 

1 

FUNCTION  SWITCH.SET  (SWITCH.NO: INTEGER) : BOOLEAN; 

21 

D 

1 

PROCEDURE  CLDSE.RELAY  (COUNTER: INTEGER) ; 

22 

D 

1 

PROCEDURE  OPEN.RELAY; 

23 

D 

1 

PROCEDURE  ZERD.COUNTERS; 

24 

D 

1 

PROCEDURE  RESET.COUNTERS  <  PASS , RECRD , PO I NT : I NTEQER ) 

25 

D 

1 

PROCEDURE  INCR.COUNTER  (COUNTER: INTEGER) ; 

26 

S 

27 

D 

1 

IMPLEMENT 

28 

S 

29 

S 

30 

D 

1 

<  $**t$  SWITCH.SET  *****  > 

31 

S 

32 

D 

1 

FUNCTION  SW I TCH.SET  ( SW I TCH.NO: INTEGER) : BOOLEAN; 

33 

D 

2 

{  This  function  returns  value  of  True  if  the  switch 

34 

D 

n 

2 

•C  number  on  Event  Sense  card  SWITCH.NO  is  set 

35 

J 

D 

2 

{  Notes: 

36 

D 

2 

<  -  Pin  no.  on  card  =  SWITCH.NO  +  1 

37 

D 

2 

{  -  Exp(Ln(2)*I)®2''I 

38 

D 

2 

C  -  Pump  interlock  is  Switch  #6 

39 

S 

40 

D 

2 

VAR 

41 

D  -8 

2 

I,WDRD7: INTEGER; 

42 

D  ->16 

2 

Ln2:REAL; 

43 

:5 

44 

C 

2 

BEGIN 

45 

:C 

2 

Ln2:«=Ln(2) ; 

46 

C 

2 

I0C0NTR0L(12,3,-3792) ;  {  IEN,SYE,TME  On  > 

47 

iC 

2 

I0C0NTR0L(12, 1, 1) ; 

48 

C 

2 

WRITEWORD ( 12, -3936) ; 

49 

c 

2 

I0C0NTR0L(12,3,0) ; 

50 

c 

2 

W0RD7: »4095- ( lOSTATUS ( 12, 3) +32768) ;  <4095=7777H> 

51 

c 

2 

FOR  I:»6  DOWNTO  SWITCH_N0+1  DO 

52 

c 

3 

IF  W0RD7>«Exp<Ln2»I)  THEN  i2^iy 

53 

c 

4 

W0RD7:  -WORDT-ROUND  (Exp  (Ln2»I ) ) ;  <2''I> 

54 

c 

2 

SWITCH_SET:=W0RD7>=Exp  (Ln2»SWITCH_N0) ;  <2'^SWITCH_N0J 

55 

c 

2 

END;  i  Function  Set.Switch  > 
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56:8 
57:  S 

58: D  1  <■  *****  CL0SE_RELAY  *****  > 

59 :  S 

60: D  1  PROCEDURE  CLOSE.RELAY  (COUNTER: INTEGER) ; 

61 :C  2  BEGIN 

62: C  2  <■  Find  bit  corresponding  to  COUNTER  J 

63: C  2  IF  C0UNTER<0  THEN 

64 : C  3  COUNTER : — C0UNTER*2- 1 

65:  C  3  ELSE 

66 ; C  3  COUNTER : ■ <  COUNTER- 1 ) »2 ; 

67:C  2  COUNTER: -ROUND (Exp  (Ln  (2)  ^COUNTER) ) ;  C2''I> 

68:C  2  <  Close  the  relay,  but  don’t  dump  pump  > 

69: C  2  <  Pump  is  7th  relay,  100  hex  =  256  J 

70:C  2  WRITEW0RD(12,-4000); 

71:C  2  WRITEW0RD(12,Relay_0ut_l+C0UNTER+256) ; 

72: C  2  END;  <  Proceedure  Close_Relay  > 

73:8 
74: 8 

75:D  1  <  *****  OPEN_RELAY  *****  > 

76:8 

77: D  1  PROCEDURE  OPEN_RELAY; 

78: C  2  BEGIN 

79:C  2  <  Open  the  relay,  but  don’t  dump  pump  J 

80: C  2  WRITEW0RD(12,-4000) ; 

81 :C  2  WRITEWORD(12,Relay_Out_l+256) ; 

B2:C  2  END;  C  Proceedure  Close_Relay  > 

83:8 

84:8 

85: D  1  i  *****  ZERO_COUNTERS  *****  > 

86:8 

87: D  1  PROCEDURE  ZERO_COUNTERS; 

88:8 

89: D  2  VAR 

90: D  -1  2  DUMMY: BOOLEAN; 

91:8 

92: C  2  BEGIN 

93: C  2  i  Close  the  relays,  but  don’t  dump  pump  > 

94 :C  2  WRITEW0RD(12,-4000); 

95:C  2  WRI TEWORDd 2, Relay_0ut_l  +  1 70+256 > ;  {  170=AA  hex  1 

96: C  2  DUMMY:-BWITCH_SET<7) ; 

97: C  2  OPEN.RELAY; 

98: C  2  END;  <  Proceedure  Zero_Counters  > 

99:8 

100:8 

101  :D  1  <■  *****  RESET_CDUNTERS  *****  > 

1 02  s  B 

103:D  1  PROCEDURE  RESET_COUNTERS  (PASS, RECRD, POINT: INTEGER) ; 

104:8 

105: D  2  VAR 

106:D  —4  2  I: INTEGER; 

107: D  -5  2  DUMMY: BOOLEAN;  <  Used  as  program  delay  as  3 

108: D  -52  t  required  by  counters  > 

109:8 

110:C  2  BEGIN 
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111 

C 

2 

{  Zero  pass  counter  > 

112 

C 

2 

DUMMY:«SWITCH  SET (7); 

113 

C 

2 

CLOSE  RELAY  (-3); 

114 

C 

2 

DUMMY:=SWITCH_SET  (7) ;  DIJMMY:=SWITCH_SET  ' 

115 

C 

2 

OPEN.RELAY; 

116 

c 

2 

<  Reset  pass  counter  > 

117 

c 

2 

FDR  I:=l  TO  PASS  DO 

118 

c 

3 

BEGIN 

119 

c 

3 

DUMMY: -SWITCH  SET(7)j 

120 

c 

3 

CLOSE_RELAY  <3) ; 

121 

c 

3 

DUMMY : -SW I TCH_SET ( 7 ) ; 

122 

c 

3 

OPEN_RELAY; 

123 

c 

3 

END; 

124 

c 

2 

DUMMY : -SW I TCH.SET ( 7 ) ; 

125 

s 

126 

c 

2 

i  Reset  record  counter  > 

127 

c 

2 

FOR  I:»l  TO  RECRD  DO 

128 

c 

3 

BEGIN 

129 

c 

3 

DUMMY:-SWITCH_SET(7) ; 

130 

c 

3 

CLOSE_RELAY  (2) ; 

131 

c 

3 

DUMMY : -SW I TCH_SET ( 7 ) ; 

132 

c 

3 

OPEN_RELAY; 

133 

c 

3 

END; 

134 

s 

135 

c 

2 

■C  Reset  point  counter  > 

136 

c 

2 

FOR  I:=l  TO  POINT  DO 

137 

c 

3 

BEGIN 

138 

c 

3 

DUMMY : -SW I TCH_SET ( 7 ) ; 

139 

c 

3 

CLDSE.RELAY  <1); 

140 

iC 

3 

DUMMY:-SWITCH_SET (7) ; 

141 

c 

3 

OPEN_RELAY; 

142 

;C 

3 

END; 

143 

c 

2 

END;  i  Proceedure  Reset_Counters  > 

144 

:S 

145 

S 

146 

D 

1 

{  »»»»»  INCR_COUNTER  *****  > 

147 

5 

148 

D 

1 

PROCEDURE  INCR_COUNTER  < COUNTER: INTEGER) ; 

149 

S 

150 

D 

2 

VAR 

151 

D 

-1  2 

DUMMY: BOOLEAN; 

152 

S 

153 

C 

2 

BEGIN 

154 

C 

2 

CLOSE  RELAY  (COUNTER); 

155 

C 

2 

DUMMY:«SWITCH_SET<7) ;  <  Program  delay 

156 

c 

2 

OPEN_RELAY; 

157 

c 

2 

END;  <  Proceedure  Incr^Counter  J 

158 

s 

159 

c 

1 

END. 

160: 

s 

No  errors. 

No  warnings. 

Nonstandard  language  features  enabled 
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1:D 

0 

«UCSD$  »LINES  55$  $0EBUG  0N$ 

2:D 

0 

$SEARCH  " #47 : PASC_L I B . ' , ’ #3 : VAR_DEF I N ’ $ 

3:5 

4:D 

0 

PROGRAM  HSWR_CHECK_PUMP_CMDS; 

5:D 

1 

6:D 

1 

i  This  program  checks  the  Power_Up 

7:D 

1 

i  and  Dump  Procedures 

8:D 

1 

<  Notes: 

9:D 

1 

{  -  PASC_LIB  and  VAR_DEFIN  required 

10:D 

1 

{  -  Jumper  required  from  Event  Sense 

11:D 

1 

{  jack  to  Relay  Output  jack  on 

12:D 

1 

<  counter  panel 

13:8 

14;D 

1 

{  Revision  dated  24  November  1987 

15:5 

16:D 

1 

LABEL  10; 

17:5 

18:D 

1 

IMPORT 

19:D 

1 

I ODECLARAT I ONS , GENERAL.O , 

20:  D 

1 

GENERAL. 1 , VAR.DEF I N I T I ONS ; 

21:5 

22:D 

1 

C0N5T 

23:  D 

1 

ON  =’'Dn 

24:  D 

1 

0FF==‘0f-f  ”  ; 

25:8 

26:  D 

1 

VAR 

27:D 

-8 

1 

I . SWITCH.NO: INTEGER; 

28:  D 

*-9 

1 

REPLY: CHAR; 

29:5 

30:  D 

-9 

1 

i  MODULE  PUMP.COMMANDS  > 

31:5 
32:  D 

-9 

1 

<  »»«»»  POWER.UP  »*»»•  > 

33:5 

34:D 

1 

PROCEDURE  POWER.UP  ; 

35:  C 

2 

BEGIN 

36:  C 

2 

CZero  the  load  I 

Z7tC 

2 

WRITEW0RD(12,-40O0) ;  C  DTE,SYE  On  > 

38*C 

WR I TEWORD  <12, D.to.A. 1 ) ; 

39:  C 

2 

i  Output  the  voltage  > 

40*C 

WRITEW0RD(12,-4064) ;  <  TME  Off,  SYE 

41*C 

2 

WRITEWORD(12,-4000) ;  {  DTE, SYE  On  > 

42:  C 

2 

{  Close  the  relay  J 

43*5 

2 

WR I TEWORD (12, -4000 ) ;  <  DTE , SYE  On  > 

44:C 

2 

i  Pin  9:  <9-1  >''2*256  > 

45*C 

2 

WR I TEWORD  < 1 2 , Rel ay .Out . 1 +256 > ; 

46*C 

2 

END;  {  Proceedure  Power.Up  > 

47:5 

48:5 

49;  D 

“9 

1 

{  »««$«  DUMPED  *****  3- 

50:5 

51 :  D 

1 

FUNCTION  DUMPED : BOOLEAN ; 

52:5 

53:  D 

2 

VAR 

54:  D 

-4 

2 

W0RD7; INTEGER;  <  7  bit  word  3 

55:5 
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56:  C 

2 

BEGIN 

57  »C 

2 

IOCONTROL( 12, 3,-3792);  <  IEN,SYE,TME  On  > 

5B»C 

2 

IDC0NTR0L<12,  1,  1) ; 

59*C 

2 

WRITEW0RD(12,-3936) ;  i  ISL,SYE  On  > 

60»C 

2 

I0C0NTR0L(12,3.0) ; 

61«C 

2 

W0RD7  8  «4095- ( I OSTATUS  <12,3) +32768 ) ;  <4095=7777H> 

62»C 

2 

DUMPED: =W0RD7< 64;  {  64=2" 6  > 

63*C 
64:  S 
65:  S 

2 

END;  i  Proceedure  Dumped  > 

66:  D 
67:  S 

-9  1 

i  »»»»»  DUMP  »»»»»  > 

68:  D 

1 

PROCEDURE  DUMP; 

69;  C 

2 

BEGIN 

70:  C 

2 

<Open  the  relayJ 

71*C 

2 

IDC0NTRDL(12,0, 1) ; 

72*C 

2 

WRITEW0RD(12,-4000) ;  i  DTE,SYE  On  3 

73*C 

2 

WRITEWORD ( 12, Rel ay_Out_l ) ; 

74:  C 

2 

<Zero  the  load  output! 

75*C 

2 

WRITEWORD <12. -4000) ;  {  DTE,SYE  On  3 

76*C 

2 

WRITEWORD < 12, D_to_A_l ) ; 

lltZ 
78:  S 
79:  S 

2 

END;  {  Proceedure  Dump  > 

80:  C 

1 

BEGIN 

Bite 

1 

lOINITIALIZE: 

B2tC 

1 

WR I TELN  <  FF , LF , LF , LF , LF , LF , LF , LF , LF ) ; 

BZtC 

1 

WRITELN<LF,LF,LF,LF,LF,TB, ’Hit  any  key  to  quit,  or’); 

84#C 

1 

WRITELN<TB,T5, ' "P"  to  Power  up  pump’); 

e5»c 

1 

WRITELN<TB.T5, ’ "D"  to  Dump  pump’); 

&6tC 

1 

WRITELN  <US,  US,  US,  US,  US, US,  US,  US,  US,  US,  US) ; 

BJtC 

1 

WRITE  <T5,’Pump  is  ’); 

88:  C 

1 

10s  REPEAT 

B9)KC 

2 

IF  DUMPED  THEN 

90*C 

3 

WRITE  <BS,BS,BS,OFF) 

91:C 

3 

ELSE 

92#C 

93:5 

3 

WRITE  <BS,BS,BS,ON) ; 

94#C 

2 

UNT I L  NOT  <  UN I TBUSY  <  KE YBRD ) ) ; 

95*C 

1 

READ < REPLY) ; 

96*C 

97:5 

1 

WRITE <BS,SP,BS) ; 

98*C 

1 

IF  <REPLY='P’)  OR  <REPLY=’p’)  THEN 

99:  C 

2 

BEGIN 

100*C 

2 

POWER  UP; 

lOlCC 

2 

GOTO  10; 

102:  C 
103:5 

2 

END; 

104*C 

1 

IF  <REPLY=’D’)  OR  <REPLY=’d’)  THEN 

105:  C 

2 

BEGIN 

106*C 

2 

DUMP; 

107»C 

2 

GOTO  10; 

108:C 

109:5 

2 

END; 

note 

1 

WRITELN <LF, LF, LF, LF, LF, LF) ; 
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111»C  1  WRITELN<TB, 'Program  ended. TB) ; 

112*C  1  WRITELN(TB,TB,TB,TB); 

113*C  1  WRITELN<TB,TB,TB,TB) ; 

H4*C  1  lOUNINITIALIZE; 

115»C  1  END. 

116:8 

No  errors.  No  warnings. 

Nonstandard  language  features  enabled  »»*** 
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1:D 
2:D 
3:S 
4:D 
5:5 
6:D 
7:D 
B:D 
9:D 
10:D 
11:D 
12:D 
13:5 
14:D 
15:5 
16:D 
17:5 
ie:D 
19:D 
20:  D 
21:5 
22:  D 
23:  D 
24:  D 
25:  D 
26:  D 
27:  D 
28:  D 
29:D 
30:  D 
31:D 
32:  D 
33:  D 
34:5 
35:  D 
36:  5 
37:  D 
38:5 
39:  D 
40:5 
41:D 
42:  D 
43:5 
44:C 
45*C 
46:5 
47:C 
4B:C 
49:  C 
50  :C 
51»C 
52»C 
53#C 
54*C 
55*0 


0  ♦UCSD«  *LINE5  55*  *DEBUB  0N$ 

0  tSEARCH  ' #47; PASC_LIB. ’ , ' #3; VAR.DEFIN’ ♦ 

0  PROBRAM  HSWR_CHECK_LOAD_CMDS; 

1 

1  <  This  program  checks  fhe  LDAD_CMDS  J 

1  <  Module.  ^ 

1  {  Notes:  ^ 

1  {  -  PASC_LIB  and  VAR_DEFIN  required  > 

1  {  —  Jumper  required  from  the  D-to— A  > 

1  i  card  to  the  A-to-D  card.  > 

1  <  Revision  dated  23  November  1987  > 

1  LABEL  10,20,25,305 

1  IMPORT 

1  I ODECLARAT I ONB , SENERAL_0 , BENERAL_ 1 , 

1  CLOCK , S YSSLOBALS , VAR_DEF I N I T I ONS ; 

’  1  VAR 

1  CAL_DELAY,  {  Time  delay  for  screen  update  J 
1  NEXTLD,  {  Load  input  by  operator  1 

1  LASTLD,  i  Previous  load  point  > 

1  LBSMAX  {  Max  actuator  load  in  pounds,  span  setting  1 

-16  1  C  Loads  are  integer  >i INTEGER; 

-20  1  TIME  :TIMEREC5 

-20  1  T0,T,FS, {  Start/Elapse  time,  feedback  full  scale  xn  volts 

-20  1  POUNDS,  i  Used  for  inputting  NEXTLD  > 

-20  1  CMDSIG.  <  Command  Signal  in  pounds  J 

-76  1  OMEGA, S I N_TERM; REAL; 

-77  1  REPLY  : CHAR 5 

-77  1  i  #»»»*  MODULE  L0AD_C0MMANDS  *****  > 

-77  1  <  *****  0UTPUT_L0AD  **»»#  3 

-8  1  PROCEDURE  OUTPUT _L0AD  (CMDSIG: REAL;  LBSMAX: INTEGER) ; 

-8  2  VAR 

-12  2  V; INTEGER; 

2  BEGIN 

2  WRITEW0RD(12,-4000> ;  <  DTE,  SYE  On  3 

2  f  Convert  from  0UT_LD  to  Volts,  LSB“5mV3 

2  <  I  CMDSIG  3  C  lOV  13 

2  <  C - - 3  3 

2  t  C  LBSMAX  3  C0.005V3  3 

2  V : “ROUND (10/0. 005 * CMDS IB/ LBSMAX ) ; 

2  IF  V<0  THEN  i  Correct  negative  voltage,  > 

3  V:“V-4-4096;  <  set  sign  bit,  10  bit  word  3 

2  V: *V+D_to_A_l ;  <  Correct  for  slot  3 

2  WRITEw5rdTi2, V) ;  {  Output  voltage  3 
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56:5 


57ltC 

58:5 

59:5 

2 

END;  {  Proceedure  Output.Load  3 

60:  D 
61:5 

•77 

1 

<  »»»»i  LOAD  *****  y 

62;  D 
63:5 

•8 

1 

FUNCTION  LOAD  < FS: REAL ): INTEGER; 

64;  D 

-8 

2 

VAR 

65:  D 
66:5 

•12 

2 

V: INTEGER; 

67;  C 

2 

BEGIN 

68:  C 

2 

{  Read  voltage  3 

69*C 

2 

WRITEW0RD<12,-3920);  <  ISL,  SYE,  TME  On  3 

70*C 

2 

MRITEW0RD(12,A  to  D  1); 

71<cC 

72:5 

2 

READWORD  (12,V); 

73:  C 

2 

C  Convert  volts  to  load  3 

74»C 

2 

V:«V+3276B;  i  Subtract  IRQ  (lOOOOOoct)  3 

75*C 

2 

IF  V>2047  THEN  <  Correct  negative  voltage,  3 

76»C 

3 

V:“V~4096;  C  subtract  sign  bit  3 

77:C 

2 

<  LSB*5mV  for  lOV  range,  3 

78:  C 

2 

■£  FS=500,0001bs,  50/FS  =  resolution  in  pounds  3 

79#C 

80:5 

LOAD:  =ROUND  ( <0. 005»;V)  *  (500000/FS) ) ; 

81»C 

82:5 

83:5 

2 

END;  C  Function  Load  3 

84;D 
65 : 5 

-77 

1 

{  *****  CAL_L0AD  *****  3 

86:  D 
87:5 

•8 

1 

PROCEDURE  CAL_L0AD  (FS:REAL;  VAR  CAL_DELAY: INTEGER) ; 

88:  D 
89:5 

•8 

2 

LABEL  10; 

90:  D 

•8 

2 

VAR 

91;D 

-9 

2 

REPLY: CHAR; 

92:  D 

•IS 

2 

T,T0  : INTEGER: 

93:  D 
94:5 

•22 

2 

TIME  :TIMEREC; 

95:  C 

2 

BEGIN 

96»C 

2 

10: IF  CAL.DELAYoO  THEN 

97tC 

3 

CAL  5eLAY:»100; 

98*C 

2 

WRITELN (FF, TD, TD, TD, LF, LF, LF) ; 

99»C 

• 

2 

WRITELN(’  Hit  any  key  to  end  calibration,  or  ' , 

100*C 

2 

WRITELN<'  "D”  to  change  cal  printout  delay'); 

101*C 

2 

WRITE  (US,  US,  US,  US,  US, US,  US, US) ; 

102*C 

2 

WRITE  ('  Feedback  LOAD (FS):B, '  lbs'); 

103*C 

104:5 

2 

WRITE  (BT,BS,BS,BS,BS); 

105:C 

2 

REPEAT 

106»C 

3 

WRITE  (L0AD(FS):8,BT); 

107#C 

3 

SYSTIME<T1ME) ; 

10B»C 

3 

WITH  TIME  DO 

109»C 

4 

TO : “HOUR  * 360000+M I NUTE * 6000+CENT I SECOND ; 

1 10:  C 

3 

REPEAT 
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111»C 

112*C 

113*C 

114*C 

> 

115»C 
116:S 
li7<cC 
118:C 
119*C 
120:  C 
121<cC 
122«C 
123:  C 
124»C 
125*C 
126«C 
127:C 
128«C 
129:8 
130:8 
131:D 
132:8 
133:  D 
134:8 
135:  D 
136:  D 
137:D 
138:8 
139:C 
140»C 
141:C 
142:  C 
143:  C 
144:C 
145:8 
146*C 
147tC 
148:C 
149»C 
150:8 
151»C 
152»C 
153*C 
154*C 
155:  C 
156*C 
157»C 
158»C 
159*C 
160*C 
161:8 
162*0 
163:8 
164:8 
165:8 
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4  SYSTIMEdlME); 

4  WITH  TIME  DO 

5  T : =HDUR*360000+M I NUTE*6000+CENT I SECOND ; 

4  UNTIL  <T-TO) >R0UND<CAL_DELAY/10) j  <  delay  in  millisecond 

3  UNTIL  NOT<UNITBUSY(KEYBRD))j 

2  READ (REPLY); 

2 

2  IF  (REPLY='D')  DR  (REPLY^’dM  THEN 

3  BEGIN 

3  WRITELN(FF,TD); 

3  WRITELN<’  Current  delay  is  ' ,CAL_DELAY: 1, 

*  3  '  milliseconds' yLF) ; 

3  WRITE  (’  What  is  desired  delay  in  milliseconds?  ’); 

3  READLN<CAL_DELAY) ; 

3  GOTO  10; 

3  END; 

2  END;  {  Proceedure  Cal_Load  > 


77  1  <  SCAN_1000  *****  y 

1  PROCEDURE  SCAN. 1000  (PRINT; BOOLEAN) ; 

2  VAR 

•12  2  RELAY2. TO, T: INTEGER; 

16  2  TIME  ;TIMEREC; 

2  BEGIN 

2  WRITEW0RD(12,-4000) ;  <  DTE,  SYE  On  J 

2 

2  (  Relay  1  logic  "1”  triggers  scan  > 

2  {  Relay  2  =  ’*0"  for  tape  -file  during  ramping  J 

2  ■{  =  "I"  for  printout  at  a  hold  point  3- 

2  IF  PRINT  THEN 

3  RELAY2;*2  i  Set  relay  2  to  logic  "1"  > 

3  ELSE 

3  RELAY2:=0;  C  Set  relay  2  to  logic  "O”  > 

2  WRITEW0RD(12,Relay_0ut_2+l+RELAY2) ; 

2  SYSTIME(TIME) ; 

2  WITH  TIME  DO 

3  TO ; “HDUR4360000+M I NUTE  *6000+CENT I SECOND ; 

2  REPEAT 

3  SYSTIME(TIME); 

3  WITH  TIME  DO 

4  T : -HOUR * 360000+M I NUTE * 6000+CENT I SECOND ; 

3  UNTIL  (T-T0)>2;  i  20  millisecond  delay  > 

2  WRITEW0RD(12,Relay_0ut_2+0+0) 

2  END;  i  Proceedure  Scan.lOOO  3 
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166:  S 
167:  C 
16B»C 
169»C 
170«tC 
171»C 
172»C 
173*C 
174:  S 
175<tC 
176:  C 
177*C 
17B*C 
179:  C 
1B0:S 
1B1»C 
182«C 
1B3»C 
1S4:C 
1B5*C 
1B6«C 
187;  B 
IBBfC 
1B9*C 
190;  C 
191;B 
192*C 
193»:C 
194;S 
195;  C 
196*C 
197*0 
19B*C 
199;  S 
200;  C 
201  ;C 
202 »C 
203*C 
204  »C 
205*C 
206*C 
207:  C 
20B»C 
209;  S 
210;C 
211*C 
212»C 
213*C 
214»C 
215:B 
216»C 
217;B 
218:C 
219;C 
220 #C 


1  BEGIN 

1  IDINITIALIZEj 

1  LASTLD:»0; 

1  NEXTLD:=0; 

1  CMDBIG;-=05 

1  0MEGA:*0.l5  <  10  second  period  > 

1  0UTPUT_L0AD <0, 500000) ;  <  Zero  output  > 

1  IF  LBSMAX»0  THEN 

2  BEGIN 

2  REPLY: 

2  GOTO  30; 

2  END; 

1  10:WRITELN<FF,TD>;  , 

1  WRITELN<’ Command;  Maximum  Load  is  ',LBSMAX:6,’  lbs  ,LF) 
1  WRITELN(’ Feedback:  Full  scale  -for  500  kips  is 

1  FS;6;3,'  volts’ ,TD,LF,LF,LF) ; 

1  WRITELN(T5, ’Enter  Output  value  in  pounds,  ’,LF); 

1  WRITELN<T5, ’or  -99  to  stop  ’); 

1  20:WRITELN(TU,TU,TB, ’  Command  =’ , CMDBIG; 8:0, ’  lbs’,LF); 

1  WRITE  (TB, ’Feedback  =’ ,LDAD<FB) :8, ’  lbs’, 

1  BS,BB,BB,BB) ; 

1  IF  NEXTLD=LABTLD  THEN 

2  GOTO  25; 

1  <  Find  starting  time  > 

1  BYBTIME(TIME) ; 

1  WITH  TIME  DO 

2  T0:«H0UR»3600+MINUTE»60+CENTISEC0ND/100; 

1  REPEAT 

2  €  Determine  value  o-f  next  load  step  > 

2  SYBTIME(TIME) ; 

2  WITH  TIME  DO 

3  T ; -HOUR »3600+M 1 NUTE »  60+CENT I SECOND / 1 OO-TO ; 

2  IF  (0MEGA*T)<0.5  THEN 

3  SIN_TERM;=0.5»(SIN(PI*(2*DMEGA»T-0.5) )+l) 

3  ELSE 

3  SIN_TERM;«1.0; 

2  i  Step  up  loads,  read/display  loads  J 

2  CMDSIG: - (NEXTLD-LASTLD) *SIN_TERM+LASTLD; 

2  WRITE <BT, US, US, CMDSIG: 8:0); 

2  OUTPUT  LOAD ( CMDB I G , LBSMAX ) ; 

2  WRITE  “(BT,LF,LF,L0AD<FS):8); 

2  UNTIL  SIN_TERM=1.0;  i  Reached  load  point?  > 

1  i  Hold  at  load  point  until  operator  input  I 

1  25: REPEAT 

2  WRITE  (BT,L0AD(FS) :8) ; 
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221  *C 

2 

UNTIL  NOT (UNITBUSY <KEYBRD) ) ; 

222:  S 

223*C 

1 

WRITE  <CR,TD,LF,T5,  "or  -99  to  stop  M; 

224 *C 

1 

LASTLD:«NEXTLD; 

225»C 

1 

READ<NEXTLD) : 

226 >C 

1 

IF  NEXTLD=LASTLD  THEN 

227  :C 

2 

BEGIN 

22B»C 

2 

WRITELN(US,TB,TB,TB,TB,CR,T5, '•or  -99  to  stop  ' 

229*C 

2 

WRITE  (TU, US, US, TB, ’ Feedback  , LOAD <FS) : 8) ; 

230*C 

2 

GOTO  25; 

231  :C 

2 

END; 

232:  S 

233»C 

1 

IF  NEXTLDO-99  THEN 

234 »C 

2 

GOTO  10; 

235 :S 

236 »C 

1 

LASTLD:=0; 

2Z7tC 

1 

NEXTLD:=0; 

238*C 

1 

CMDSIG:=0; 

239»C 

1 

OUTPUT_LOAD(CMDSIG,LBSMAX).;  . 

240:  S 

241*C 

1 

WRITELN  <US, US, US, T5, 

242:  C 

1 

’What  would  you  like  to  do  now?  Hit:’,LF); 

243 *C 

1 

WRITELN <TB, ’ M  to  change  Maximum  actuator  load’); 

244 *C 

1 

WRITELN (TB, ’V  to  change  full  scale  Voltage’); 

245*C 

1 

WRITELN (TB, ’ C  to  run  Calibration  routine’); 

246»C 

1 

WRITELN(TB, ’S  to  sent  Scan  signal  to  HP-1000’); 

247 *C 

1 

WRITELN (TB, ’P  to  sent  Print  signal  to  HP-1000’); 

24BtC 

1 

WRITE  (TB,’Q  to  Quit  ’); 

249:  C 

1 

REPEAT 

250*C 

2 

READ (REPLY); 

251  *C 

2 

WRITE (BS,SP,BS) ; 

252»C 

2 

UNTIL  ( ( (REPLY«’M’ >  OR  (REPLY=’m’))  OR 

253  :C 

2 

((REPLY«’V’)  OR  (REPLYc’’ V’ )  )  OR 

254  :C 

2 

((REPLY=’C’)  OR  (REPLY«’c’))  OR 

255  :C 

2 

((REPLYe’S’)  OR  (REPLY=’s’))  OR 

256:  C 

2 

((REPLY^’P’)  OR  (REPLY«’p’))  OR 

257  :C 

o 

A. 

((REPLY*’Q’)  OR  (REPLY«’q’))); 

258  :S 

259*C 

1 

30: IF  (REPLY®’ M’)  OR  (REPLY*’ m’)  THEN 

260;  C 

2 

BEGIN 

261»C 

2 

WRITELN (FF,TD); 

262»C 

2 

WRITE (’  Enter  the  maximum  test  load  in  pounds 

263»C 

2 

READLN( POUNDS) ; 

264 »C 

2 

LBSMAX: *R0UND (ABS (POUNDS) ) ; 

265*0 

2 

IF  FS*0  THEN 

266 *C 

3 

REPLY: *’V’ ; 

267  :C 

2 

END; 

268:  S 

269»C 

1 

IF  (REPLY*’ V’)  OR  (REPLY*’ v’)  THEN 

270:  C 

2 

BEGIN 

271*C 

2 

WRITELN (FF,TD) ; 

272*C 

2 

WRITE  (’  What  is  corresponding  ’, 

273:  C 

2 

’voltage  for  500  kips?  ’); 

274 *C 

2 

READLN(FS) ; 

275*C 

2 

FS:*ABS(FS); 
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276:  C 

2 

END; 

277  :S 

278*0 

1 

IF  <REPLY=’C’>  OR  <REPLY='c’)  THEN 

279»C 

2 

CAL_L0AD  <  FS , CAL_DELAY ) ; 

280:  C 

1 

281»C 

1 

IF  (REPLY^^'E’ )  DR  <REPLY«’b')  THEN 

282*C 

2 

8CAN_1000  (FAL8E) ; 

283:8 

284»C 

1 

IF  (REPLY*'PM  OR  <REPLY*'p')  THEN 

285 »C 

2 

8CAN_1000  (TRUE); 

286:8 

287 »C 

1 

IF  NOT < (REPLY* 'Q' )  OR  (REPLY»'q'))  THEN 

28B»C 

2 

GOTO  10; 

289:8 

290*C 

1 

WRITELN(LF,LF); 

291»C 

1 

WR1TELN(TB, ’Program  ended....’); 

292*C 

1 

lOUNINITIALIZE; 

293»C 

1 

END. 

294:8 

295:8 

No  errors-  No  warnings. 

Nonstandard  language  features  enabled  ***** 
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1: 

D 

0 

♦UCSD*  KLINES  55*  KDEBUG  ONK  KLIST  ON  i 

2: 

D 

0 

♦SEARCH  ’«3:VAR_DEFIN'K  KREF  50K 

3; 

S 

4; 

D 

0 

PR06RAM  HSWR_CHECK_TEST_PARM; 

5: 

D 

1 

6: 

D 

1 

i  This  program  checks  the  routines 

7s 

D 

1 

€  in  TEST_PARM. 

8 

D 

1 

{  Notes: 

9 

D 

1 

i  -  PASCAL IB  and  VAR_DEFIN  required 

10 

S 

11 

D 

1 

{  Revision  dated  23  November  1987 

12 

8 

13 

D 

1 

LABEL  10,90; 

14 

S 

15 

D 

1 

IMPORT 

16 

D 

1 

VAR^DEFINITIONS; 

17 

5 

18 

D 

1 

VAR 

19 

D 

1 

I,SWITCH_NO, 

20 

D 

1 

LBSMAX , DLL . LDRATE , 

21 

D 

1 

LD  TOL,CAL_DELAY, 

22 

D 

1 

PASS , RECRD .POINT, 

D 

-44 

1 

TOTPASS  : INTEGER; 

24 

D 

-45 

1 

REPLY  :CHAR; 

25 

D 

-47 

1 

FAT I GUE , CDNF I G_CHNG : BOOLEAN ; 

26 

D 

-56 

1 

FS  :REAL; 

27 

S 

28 

s 

29 

s 

30 

D 

-56 

1 

»#»»»  CHNG_SYST_PARAM  *****  J 

31 

5 

32 

D 

1 

PROCEDURE  CHNB_SYST_PARAM  (VAR  FS:REAL 

33 

D 

2 

VAR  LBSMAX , DLL : I NTEGER ) ; 

34 

S 

35 

D 

2 

LABEL  10; 

36 

S 

37 

D 

2 

VAR 

38 

D 

-8 

2 

MAX_LD, TUL: INTEGER; 

39 

D 

-16 

2 

POUNDS  :REAL; 

40 

D 

-17 

2 

REPLY  :CHAR; 

41 

S 

42 

C 

2 

BEGIN 

43  *C 

2 

IF  DLL=0  THEN 

44 

sC 

3 

BEGIN 

45 

3 

REPLY: «'D’; 

46«C 

3 

GOTO  10; 

47 

:C 

3 

END; 

48 

:S 

49»C 

2 

TULi “ROUND ( 1 . 5»DLL) ; 

50 

:S 

51*C 

2 

IF  LBSMAX=0  THEN 

52 

:C 

3 

BEGIN 

53! 

IcC 

3 

REPLY: “’M’ ; 

54!|tC 

3 

GOTO  10; 

55 

sC 

3 

END; 
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56:8 
57»C 
58:8 
59:  C 
60:8 
61»C 
62»C 
63»C 
64:8 
65«C 
66»C 
67*C 
68»C 
69:  C 
70:  C 
71:C 
72:  C 
73*C 
74:  C 
75:8 
76»C 
77*C 
78:  C 
79:  C 
80:  C 
B1:C 
82*C 
83:  C 
84:8 
85«C 
B6»C 
87*C 
88»C 
89»C 
90;  C 
91*C 
92*C 
93*  C 
94;  C 
95;  C 
96;  C 
97:8 
98»C 
99:  C 
100#C 
101*8 
102*C 
103*C 
104*C 
105*C 
106*C 
107*C 
108:  C 
109:8 
110*C 


MAX  LDi -ROUND <LB8MAX/TUL« 100); 


REPEAT 


3  10; 

4 


WRITELN<FF,LF,LF); 

WRITELN(T5, 'Design  Limit  load  is  ',DLL:6, '  lbs'); 
WRITELN<T5, 'Test  Ultimate  load  is  ',TUL;6, ’  lbs’,LF); 

WRITELN  < ’ Control  System; ' ) ; 

WRITELN(T5, 'Maximum  Load  is  '  ,MAX_LD:6, '  JCTUL' ) ; 
WRITELN (T5, 'Maximum  Load  is  ',LBSMAX:6,'  lbs'); 
WRITELN (T5, ’ Bet  Bervac  Span  to  ', 
ABS(LBSMAX/500000»10) x5:2) ; 

{  5  mV  Resolution  > 

{  Resolution: - -  - — - — — — -  > 

i  10  V  •  LBSMAX  > 

WRITELN(T5, 'Resolution  is 

ABS (ROUND (LBSMAX*0. 005/ 10) ) :B, '  lbs' ,LF) ; 

WRITELN ('Feedback  System:'); 

WRITELN (T5, 'Full  scale  -for  500  kips  is  ', 

FS;6:3,'  volts'); 

i  5  mV  Resolution  J 

i  Resolution: - - - ^ 

i  FS  300  kips  > 

WRITELN<T5, 'Resolution  is  ', 

ABS (ROUND (0.005/FS»500000) ) :4, '  lbs’ ,LF,LF) ; 


WRITELN ('  Hit:’); 

WRITELN (’  D 

WRITELN ('  M 

WRITELN (’  V 

WRITE  (’  < space > 

REPEAT 

READ (REPLY); 

WRITE (BS,SP,BS); 
UNTIL  ( ((REPLY-’ D' ) 
( (REPLY-’ M' ) 
( (REPLY-’ V’ ) 
(REPLY-’  ')) 


Hit: ’ ) ; 

D  to  change  Design  limit  load’);. 

M  to  change  Maximum  actuator  load’); 
V  to  change  -full  scale  Voltage’); 

< space >  to  exit  ’); 


(REPLY-’ d’ ) ) 
(REPLY-’ m’ ) ) 
(REPLY-’ V’ ) ) 


IF  (REPLY-’D’)  OR  (REPLY=’d’)  THEN 
BE6IN 

WRITELN (FF,TD); 

IF  LBSMAX-0  THEN 
REPLY: -'M'; 

WRITE (’  Enter  Design  Limit  Load  in  pounds 
READLN(DLL) ; 

DLL: -ABS (DLL) ; 

TUL: -ROUND ( 1 . 5»DLL) ; 

MAX_LD: -ROUND (LBBMAX/TUL»100) ; 

END; 

IF  (REPLY-’M’)  OR  (REPLY-’m’)  THEN 


C*15 


NAWCADWAR-93085-60 


Pascal  CRev  2.0  10/19/B23  HSWRTP.TEXT  23-Nov-B7  14:55:57  Page  3 


lllsC 

4 

BEBIN 

112«C 

4 

WRITELN(FF,TD) j 

113»C 

4 

WRITE<'  Enter  the  ma>:ifflum  test  load  in  pounds 

114*C 

4 

READLN (POUNDS) ; 

iistc 

4 

LBSMAX : -ROUND ( ABS (POUNDS) ) ; 

116»C 

4 

MAX  LD: -ROUND (LBSMAX/TUL* 100) ; 

117»C 

4 

IF  FS-0  THEN 

118»C 

5 

REPLY: -’V’ ; 

119:C 

4 

END; 

120;  S 
121tC 

3 

IF  (REPLY-' V')  OR  (REPLY-’ v')  THEN 

122:C 

4 

BEBIN 

123»C 

4 

WRITELN(FF,TD) ; 

124»C 

4 

WRITE (’  What  is  corresponding 

125:  C 

4 

’voltage  -for  500kips?  ’); 

126*C 

4 

READLN (FS) ; 

127*C 

4 

FS:-ABS(FS)5 

12B:C 

4 

END; 

129;  C 
130*C 

3 

3 

UNTIL  REPLY-’  ’; 

131:C 

2 

132#C 

2 

END;  ■£  Procedure  Chng_Syst_Param  > 

133:5 
134:5 
135:  5 
136:D 

-56 

1 

{  *****  CHNG_TEST_PARAM  *****7 

137:5 

13B:D 

1 

PROCEDURE  CHNB_TEST_PARAM  (VAR  LDRATE, LD_TOL: INTEGER) 

139:5 
140:  D 

2 

LABEL  10; 

141:5 
142;  D 

2 

VAR 

143:  D 

-4 

2 

MAX  LD  : INTEGER; 

144:D 

-12 

2 

POUNDS  :REAL; 

145:D 

-13 

2 

REPLY  :CHAR; 

146:5 

147:C 

2 

BEGIN 

14B*C 

2 

IF  LDRATE-0  THEN 

149:C 

3 

BEGIN 

1503ICC 

3 

REPLY: -’L’; 

ISlfC 

3 

GOTO  10; 

152:  C 

3 

END; 

153:5 
154:  C 

2 

REPEAT 

155:5 

156»C 

3 

WRITELN(FF,TD,TB, ’Loading  Rate  is  ’, 

157:C 

3 

LDRATE:6, ’  Ibs/sec’ ,LF) ; 

158il£C 

3 

WRITELN(TB,’  Tolerance  is  ’,LD_T0L:6,’  lbs’,TD 

159:5 

160»C 

3 

WRITELN(’  Hit:’); 

161I^C 

3 

WRITELN(’  L  to  change  Loading  rate’); 

162*C 

3 

WRITELN(’  T  to  change  Tolerance'); 

163»C 

3 

WRITE  (’  <space>  to  exit  ’); 

164:C 

3 

REPEAT 

165»C 

4 

READ (REPLY) ; 
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166ltC 

4 

WRITE <B8aSP,BS) ; 

167»C 

4 

UNTIL  <  (  <REPLY='L’’ )  OR  <REPLY='l’))  OR 

168sC 

4 

<(REPLY='T')  OR  (REPLY='tM)  OR 

169;C 

4 

<REPLY=='  M); 

170:S 

171»C 

3 

10:  IF  <REPLY*"LM  OR  <REPLY='1M  THEN 

172:  C 

4 

BEGIN 

173»C 

4 

WRITELN(FF,TD) 5 

174*C 

4 

WRITE  What  is  the  % 

175:  C 

4 

’loading  rate  in  Ibs/sec?  ’); 

176*C 

4 

READLN  (LDRATE); 

177*8 

4 

LDRATE: =ABS (LDRATE) ; 

178*C 

4 

IF  LD  T0L«0  THEN 

179*C 

5 

REPLY:»’T’5 

180:  C 

4 

END; 

181:8 

182*C 

3 

IF  (REPLY=’T’)  OR  (REPLY^’f)  THEN 

183:  C 

4 

BEGIN 

184*C 

4 

WRITELN<FF,TD) ; 

1B5*C 

4 

WRITE (’  Enter  tolerance  in  pounds  -  ’); 

186*C 

4 

READLN <LD  TOL) ; 

187*C 

4 

LD^TOL: =AB8 (LD^TOL) ; 

188:C 

4 

END; 

189:8 

190*C 

3 

UNTIL  REPLY^’ 

191:C 

2 

192*C 

2 

END;  {  Procedure  Chng_Test_Paraffi  > 

193:8 

194:8 

195:D 

--56 

1 

<  *****  NUMBER^PABSES  *****  3- 

196:8 

197:D 

1 

PROCEDURE  NUMBER_PAS8ES  <VAR  TOTPASS: INTEGER) ; 

19B:C 

2 

BEGIN 

199*C 

2 

WRITELN<FF,TD) ; 

200 *C 

2 

WRITE  How  many  passes  to  be  run?  ’); 

201  *C 

2 

READLN  (TOTPASS); 

202 *C 

2 

END;  <  Proceedure  Number^Passes  > 

203:8 

204:8 

205  :D 

-56 

1 

i  *****  RESTART  *****  > 

206:8 

207  :D 

1 

PROCEDURE  RESTART  (VAR  PASS, RECRD, POINT, TOTPASS: INTEGER) ; 

208  :D 

2 

209  :D 

2 

LABEL  1,2; 

210:8 

211:D 

2 

VAR 

212:D 

-1 

2 

REPLY: CHAR; 

213:8 

214:C 

2 

BEGIN 

215*C 

2 

IF  T0TPASS<«0  THEN 

216*C 

3 

NUMBER  PASSES  (TOTPASS); 

217»C 

2 

IF  <RECRD=49)  AND  (P0INT*200)  THEN 

218:C 

3 

BEGIN 

219*C 

3 

PASS:=PASS+1; 

220»C 

3 

RECRD:=1; 
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221  »C 

3 

POINT: -=1: 

222»C 

3 

GOTO  2; 

223:  C 

3 

END; 

224  :S 
225*C 

2 

IF  PASS>0  THEN 

226«C 

3 

GOTO  2; 

227  ;S 
228*C 

2 

1:  WRITELN(FF,LF,LF); 

229:  C 

2 

230:  C 

2 

<.  FiiSd  Pass  number  > 

231  »C 

2 

IF  T0TPASS«=1  THEN 

232»C 

3 

PASS:=1 

233:  C 

3 

ELSE 

234  :C 

3 

REPEAT 

235»C 

4 

WRITELN(TD); 

236 »C 

4 

WRITELN(TE. 'Enter  the  Pass  number  ’); 

237*0 

4 

WRITE  (TB,TB, 'between  1  and  ' ,T0TPASS:3, ’ 

238*0 

4 

READ  <PASS>; 

239*0 

4 

UNTIL  ((PASS>0)  AND  (PASS<«=TOTPASS) ) ; 

240:0 

2 

241:0 

2 

<  Find  Record  number  > 

242:0 

2 

REPEAT 

243*0 

3 

WRITELN<LF,TB, 'Enter  the  Record  number'); 

244*0 

3 

WRITE  (LF,TB,TB, 'between  1  and  48  -  ' ) ; 

245*0 

3 

READ  <RECRD>; 

246*0 

3 

UNTIL  ((RECRD>0)  AND  <RECRD<49) ) ; 

247:5 

248:0 

2 

{  Find  Point  number  > 

249:0 

2 

REPEAT 

250*0 

3 

WRITELN; 

251*0 

3 

WRITELN(TB, 'Enter  the  Point  number  '); 

252*0 

3 

WRITE  (LF.TB.TB, 'between  1  and  200  -  '); 

253*0 

3 

READLN  (POINT); 

254*0 

3 

UNTIL  ((P0INT>0)  AND  <P01NT<201 ) ) ; 

255:5 

256*0 

2 

2:  WRITELN <FF, TD) ; 

257*0 

2 

WRITELN(TB,'  Pass  Number  ,PASS:4,LF) ; 

258*0 

2 

WRITELN (TB,'  Record  Number  «' ,RECRD:4,LF) ; 

259*0 

2 

WRITELN(TB,'  Point  Number  «' ,P0INT:4,LF) ; 

260*0 

2 

WRITE  (TB, 'Restart  at  this  point?  (Y  or  N)  - 

261:0 

2 

REPEAT 

262*0 

3 

READ  (REPLY); 

263*0 

3 

WRITE  (BS,SP,BS); 

264*0 

3 

IF  (REPLY-' N')  OR  (REPLY-' n')  THEN 

265*0 

4 

GOTO  1; 

266*0 

3 

UNTIL  ( (REPLY-' Y')  OR  (REPLY-' y' )) ; 

267:5 

268*0 

2 

IF  PASS >T0TP ASS  THEN 

269*0 

3 

TOTPASS:-PASS; 

270*0 

2 

END;  {  Proceedure  Restart  J 

271:5 
272:5 
273  :D 

-56  1 

i  «««»«  READ.CONFIG  $**$*  > 

274:5 
275:  D 

1 

PROCEDURE  READ_CONFIG  (FATIGUE: BOOLEAN; 
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276:  D 

2 

VAR  FS:REALj  VAR  LBSMAX,DLL,LDRATE,LD_TOL,CAL_DELAY, 

277:  D 

2 

PASS, RECRD, POINT, TOTPASS: INTEGER) ; 

278:5 
279:  D 

2 

VAR 

280:  D 

-8 

2 

I,IOR  : INTEGER; 

281  :D 

-9 

2 

REPLY  :CHAR; 

282:  D 

-52 

2 

FILENAME, OLDNAME: S20; 

283:  D 

-716 

2 

CONFIG.FILE  :TEXT; 

284:5 

285:8 

2 

BEGIN 

286fC 

2 

IF  FATIGUE  THEN 

287«C 

3 

OLDNAME:  HSWRFCFG’ 

288  :C 

3 

ELSE 

289*C 

3 

OLDNAME: HSWRSCFG' ; 

290»C 

2 

DELETE ( F ILENAME, 1, LENGTH (FILENAME) ) ; 

291»C 

2 

WRITELN(FF,TD,TD) ; 

292*C 

2 

WRITELN(T5, ’What  is  -file  name  to  be  read?’,LF); 

293*C 

2 

IF  FATIGUE  THEN 

294*C 

3 

WRITE  (T5, ’Default  is  ’’HSWRFCFG”  -  ’) 

295:  C 

3 

ELSE 

296#C 

3 

WRITE  (T5, ’Default  is  ’’HSWRSCFG”  -  ’); 

297*C 

2 

READLN  (FILENAME); 

298)»cC 

2 

IF  LENGTH  (FI LENAMEXl  THEN 

299 *C 

3 

F I LENAME :  i^OLDNAME ; 

300*C 

2 

F I LENAME : =CONCAT ( ’ #3 : ’ , F I LENAME ) ; 

301  »C 

2 

F I LENAME : =CONCAT ( F I LENAME , ’ . TE  X  T ’ ) ; 

302  :C 

2 

SIOCHECK  OFFS 

303*8 

2 

RESET ( CONF I G_F I LE , F I LENAME ) ; 

304:8 

2 

SIOCHECK  ON  S 

305*8 

2 

IOR:«=IORESULT; 

306*8 

2 

IF  lOROO  THEN 

307:8 

3 

BEGIN 

308*8 

WRITELN(TD,T5, ’Can”t  open  file  ’, FILENAME, LF) 

309*8 

3 

WRITELN(T5, ’ lbresult=  ’ , lOR: 1,LF) ; 

310*8 

3 

WRITE  (T5, ’Hit  any  key  to  continue....’); 

311*8 

READ (REPLY) ; 

312:8 

3 

END 

313:  8 

3 

ELSE 

314:8 

3 

BEGIN 

315*8 

3 

READ (CONFIG_FILE,FS,LBSMAX, DLL, 

316:8 

3 

LDRATE,LD  TOL, CAL_DELAY, 

317:8 

3 

PASS, RECRD, POINT, TOTPASS) ; 

318*8 

3 

CLOSE (CONFIG_FILE) ; 

319:8 

3 

END; 

320:5 

321*8 

2 

END;  <  Proceedure  Read_Config  > 

322:5 
323:5 
324  :D 

-56 

1 

<  SSSSS  WRITE.CONFIG  $$$*$  > 

325:5 
326 :D 

1 

PROCEDURE  WRITE  CONFIG  (FATIGUE: BOOLEAN;  FS:REAL; 

327  :D 

2 

LBSMAX, DLL, LDRATE, LD.TOL, CAL.DELAY, 

328  :D 

-8 

2 

PASS, RECRD, POINT, TOTPASS: INTEGER) ; 

329:5 
330:  D 

-8 

2 

VAR 
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331  :D 

-12 

2 

lOR  : INTEGER; 

332:0 

-13 

2 

REPLY  :CHAR; 

333  ;D 

-»56 

2 

FILENAME, OLDNANE: 820; 

334  :D 

-720 

2 

CONFIG  FILE  :TEXT; 

3c>5  s  S 

336 ;C 

2 

BEGIN 

337*C 

2 

IF  FATIGUE  THEN 

338»C 

3 

□LDNAME ; =' HSWRFCFG ' 

339:  C 

3 

ELSE 

340«C 

3 

OLDNAME : « ' HS WRSCFG ' ; 

341»C 

2 

DELETE (FILENAME, 1, LENGTH (FILENAME) ) ; 

342*C 

2 

WRITELN(FF,TD,TD); 

343«C 

2 

WR1TELN(T5, »What  is  file  name  to  be  written?’ ,LF) ; 

344 

2 

IF  FATIGUE  THEN 

345»C 

3 

WRITE  (T5, 'Default  is  ’’HSWRFCFG”  -  ’) 

346:  C 

3 

ELSE 

347*C 

3 

WRITE  (T5. ’Default  is  ’’HSWRSCFG”  -  ’); 

348 *C 

2 

READLN  (FILENAME); 

349*C 

2 

IF  LENGTH  (FILENAMEXl  THEN 

350*C 

3 

F I LENAME : ^OLDN AME ; 

351  *C 

2 

F I LENAME ; =CONC AT ( ’ #3 : ’ , F 1 LENAME ) ; 

352*0 

2 

F I LENAME ; =CONCAT ( F I LENAME , ’ . TEX  T ’ ) ; 

353:  C 

2 

♦lOCHECK  OFFS 

354 *C 

2 

RE WR I TE ( CONF IG_FILE, FILENAME); 

355:  C 

2 

SIOCHECK  ON  S 

356*C 

2 

IOR;=IOREBULT; 

357*C 

r? 

IF  lOROO  THEN 

358  :C 

3 

BEGIN 

359 *C 

3 

WRITELN(TD,T5. ’Can”t  open  file  FILENAME, LF) 

360 *C 

3 

WRITELN(T5, ’ lbresult=  ’,I0R:1,LF); 

361  *C 

3 

WRITE  (T5,’Hit  any  key  to  continue....’); 

362»C 

3 

READ (REPLY) ; 

363:  C 

3 

END 

364  :C 

3 

ELSE 

365:  C 

3 

BEGIN 

366*C 

3 

WRI TELN  <  CONF I G_FI LE , FS , LBSMAX , DLL , 

367:0- 

3 

LDRATE , LD_TOL , CAL.DELAY , 

368:  C 

3 

PASS, RECRD, POINT. TOTPASS) ; 

369*C 

3 

CLOSE  ( CONF I G_F I LE , ’ SAVE ’ ) ; 

370:  C 

Ok 

END; 

371  :S 

372*C 

2 

END;  C  Proceedure  Write_Config  > 

373:  S 

374  :S 

375:  D 

-56 

1 

i  «»«»»  PROGRAM_END  *****  > 

376:  S 

377  :D 

1 

FUNCTION  PROBRAM^END  ( FAT I SUE: BOOLEAN) : BOOLEAN; 

378:5 

379:  D 

2 

VAR 

380;  D 

-1 

2 

REPLY: CHAR; 

381:5 

382;  C 

2 

BEGIN 

383»C 

2 

WRITELN(BL,FF,TD); 

384  *C 

2 

WRITELN(’  Are  you  sure  you  want  to  end  the  program 

385 »C 

2 

IF  FATIGUE  THEN 
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386*C 

3 

WRITE('  Configuration  changes  and/or  the 

387  :C 

3 

CR,LP,’  test  counters’’) 

388:  C 

3 

EL8E 

389»C 

3 

WRITE<’  Configuration  changes'); 

390»C 

2 

WRITELN('  will  be  lost - ',TD); 

391  «C 

2 

WRITE  ('  End  the  program (Y  or  N)?  '); 

392:  C 

2 

REPEAT 

393»C 

3 

READ  (REPLY) ; 

394»C 

3 

WRITE  (B8,8P,B8); 

395*C 

3 

UNTIL  (REPLY*' Y')  OR  (REPLY*' y')  OR 

396  :C 

3 

(REPLY*' N')  OR  (REPLY*' n'); 

397:8 

398»C 

2 

PROBRAM_END: *  ( (REPLY*' Y’ )  OR  (REPLY*' y ' ) ) ; 

399:8 

400*C 

2 

END;  {  Function  Program_End  > 

401  :B 

402:5 

403:5 

404:5 

405:  C 

1 

BEGIN 

406:5 

1000:C 

1 

$Linenum  1000* 

1001:5 

1002)|cC 

1 

FATIGUE:*TRUE; 

1003*C 

1 

CONF I G_CHNB : =FALSE ; 

1004:  C 

1 

10: REPEAT 

1005:  C 

2 

i  Write  menu  > 

1006*0 

2 

IF  FATIGUE  THEN 

1007:C 

3 

BEGIN 

1008*C 

3 

WRITELN(FF,FATIQUETITLE,LF,LF) ; 

1009*C 

3 

{OJ  WRITELN(STRO, 'Static  Test’.LF); 

1010:  C 

3 

END 

1011:C 

3 

ELSE 

1012;C 

3 

BEGIN 

1013*C 

3 

WR I TELN ( FF , ST AT I C_T I TLE , LF , LF ) ; 

1014*C 

3 

WRITELN(STRO. 'Fatigue  Test’,LF); 

1015:C 

3 

END; 

1016*C 

2 

{1>  WRITELN(STR1,LF); 

1017*C 

2 

i2y  WRITELN(STR2,LF) ; 

1018*C 

2 

€3>  WRITELN(STR3,LF); 

1019»C 

2 

C4J  WRITELN(STR4,LF); 

1020:  C 

2 

<51  {IF  DUMPED  THEN! 

1021»C 

2 

WRITELN(STR5) ; 

1022*C 

2 

WRITELN; 

1023:8 

1024*C 

2 

{63  WRITELN (STR6, LF) ; 

1025»C 

2 

{73  WRITELN (STR7,LF); 

1026*C 

2 

{83  IF  FATIGUE  THEN 

1027:C 

3 

BEGIN 

1028*0 

3 

WRITE  (STR8, 'Change  number  of  passes'); 

1029*0 

3 

IF  T0TPASS>0  THEN 

1030*0 

4 

WRITE (',  currently  ' ,T0TPASS: 1 ) ; 

1031*0 

3 

WRITELN (LF) ; 

1032:0 

3 

END 

1033:0 

3 

ELSE 
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1034*C 
1035: S 

3 

WRITELN(STR8,LF) $ 

1036: C 

2 

{IF  NOT (DUMPED)  THEN> 

1037»C 
1038; S 

2 

C9> 

WRITELN(STR9) ; 

1039; C 

2 

{  Read  request  > 

1040»C 

2 

WRITE  (LF, 'Request?')} 

1041*C 

2 

READ  (REPLY) ; 

1042»C 

1043:8 

2 

WRITELN(FF) ; 

1044»C 

2 

{0> 

IF  REPLY«='0'  THEN 

1045»C 

1046:8 

3 

FAT I SUE: -NOT (FATIGUE) } 

1047»C 

2 

<1> 

IF  REPLY-' 1'  THEN 

104B*C 

3 

READ  CONFIG  (FATIGUE, FS,LBSMAX, DLL, LDRATE, 

1049: C 
1050:8 

LD_TOL, CAL_DELAY, PASS, RECRD, POINT, TOTPASS) } 

1051*C  * 

2 

C2> 

IF  REPLY-' 2'  THEN 

1052: C 

3 

BEGIN 

1053*C 

3 

CHNG  SYST_PARAM  (FS,LBSMAX,DLL) ; 

10543ICC 

3 

CONF I G_CHNB : -TRUE } 

1055: C 
1056:8 

3 

END; 

1057*C 

2 

C3> 

IF  REPLY-' 3'  THEN 

1058; C 

3 

BEGIN 

1059*0 

3 

CHNG  TEST  PARAM  (LDRATE. LD_TOL) ; 

1060*C 

CDNfI G_CHNG : -TRUE ; 

1061 :C 
1062:5 

3 

END; 

1063*C 

2 

<4> 

IF  REPLY-' 4'  THEN 

1064; C 

3 

BEGIN 

1065*C 

3 

WRITE  CONFIG  (FATIGUE, FS, LBSMAX, DLL, LDRATE, 

1066: C 

3 

LD_f OL , CAL.DELAY , PASS , RECRD , PO I NT , TOTPASS ) ; 

1067*C 

3 

C0NfIg_CHNG: -FALSE; 

1068: C 
1069:8 

END; 

1070*C 

2 

{5> 

IF  REPLY-' 5'  THEN  {  Normally  Power_Up  J 

1071 :C 

3 

BEGIN 

1072*C 

3 

WRITELN(FF,TD,T5, 

1073: C 

3 

'This  program  is  for  checking  the  routines' ,LF) ; 

1074*C 

3 

WRITELN (T5, ' i n  TEST_PARM.  ' , 

1075:  C 

3 

'Use  HSWRPC  for  checking  the',LF); 

1076*C 

3 

WRITELN (T5, 'pump  command  routines. ', TD) ; 

1077*C 

WRITE  (T5,'Hit  any  key  to  continue....'); 

1078*C 

3 

READ (REPLY) ; 

1079»C 

3 

GOTO  10; 

1080:  C 
1081:8 

3 

END; 

1082*C 

2 

C6> 

IF  REPLY-'6'  THEN  {  Normally  Cal  load  reading  > 

1083:  C 

3 

BEGIN 

1084*C 

3 

WRITELN (FF,TD,T5, 

1085:0 

3 

'This  program  is  for  checking  the  routines’ ,LF) ; 

1086*0 

3 

WRITELN (T5, 'in  TEBT_PARM.  ', 

1087:0 

3 

'Use  HSWRLC  for  checking  the’,LF); 

1088*0 

3 

WRITELN (T5, ' load  command  routines. ' ,TD) ; 
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1089*C 

3 

WRITE  <T5, 'Hit  any  key  to  contii 

1090»C 

3 

READ (REPLY) { 

1091 *C 

3 

GOTO  10; 

1092: C 

3 

END; 

1093:5 

1094*C 

2 

f7>  IF  REPLY='7'  THEN 

1095*C 

3 

IF  CONFIG  CHNG  THEN 

1096: C 

4 

BEGIN 

1097»C 

4 

IF  PROGRAM_END( FATIGUE)  THEN 

1098»C 

5 

GOTO  90 

1099:  C 

5 

END 

1100:C 

4 

ELSE 

1101«C 

4 

GOTO  90; 

1102:5 

1103*C 

2 

<B>  IF  (REPLY»'8')  AND  FATIGUE  THEN 

1104:C 

3 

BEGIN 

1105*C 

3 

NUMBER  PASSES ( TOTPASS ) ; 

11063ICC 

3 

CONF I G_CHNG : »TRUE ; 

1107:C 

3 

END; 

1108:5 

1109»C 

2 

<  9>  UNT I L  <  REPLY= ’ 9 ' )  ^ AND  NOT ( DUMPED ) > ; 

1110:C 

1 

1111*C 

1 

IF  FATIGUE  THEN 

1112:C 

2 

BEGIN 

1113*C 

2 

RESTART  ( PASS . RECRD , PO I NT , TOTPASS ) 

1114JICC 

2 

CONF I G_CHNG : =TRUE ; 

1115:C 

2 

END; 

1116:5 

1117»C 

1 

GOTO  10; 

1118:5 

1 

90:WRITELN<CR,TD,TB, 'Program  Ended. . . . ' 

1120:5 

1121»C 

1 

END. 

1122:5 

1123:5 

No  errors. 

No  warnings. 

Nonstandard  language  features  enabled  ***** 
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1 

D 

0 

♦UCSD$  ♦LI NEB  55$  ♦DEBUB  0N$ 

2 

D 

0 

♦SEARCH  '#47:PASC.LIB.  ” ,  =* #3:  VAR^DEFIN’ ♦ 

3 

8 

4 

D 

0 

PROGRAM  HSWR^CHECK^SW ITCHES; 

5 

D 

1 

6 

D 

1 

i  This  program  checks  the  six 

> 

7 

D 

1 

i  switches  and  the  pump  interlock 

> 

8 

D 

1 

<  connections  on  the  counter  panel 

> 

9 

D 

1 

i  Notes; 

> 

10 

D 

1 

{  ^  Switch  are  numbered  0  to  5 

y 

11 

D 

1 

{  -  Switch  numbers  correspond 

y 

12 

D 

1 

■C  directly  to  bit  numbers 

y 

13 

D 

1 

i  ^  Pin  no.  on  card  =  SWITCHING  +  1 

y 

14 

D 

1 

{  -  Exp(Ln(2)*I)=2-^I 

y 

15 

D 

1 

{  -  Pump  interlock  is  Switch  #6 

y 

16 

D 

1 

{  -  PASC_LIB  and  VAR^DEFIN  required 

y 

17 

5 

18 

D 

1 

<  Revision  dated  12  November  1987 

*». 

j 

19 

B 

20 

D 

1 

LABEL  10; 

21 

S 

D 

1 

IMPORT 

D 

1 

lODECLARATIONS, GENERAL^O, 

24 

D 

1 

GENER AL_ 1 , VAR^DEF I N I T I ONS ; 

25 

S 

26 

D 

1 

CONST 

27 

D 

1 

ON  On 

28 

D 

1 

0FF==‘  0-F-F^; 

29 

S 

30 

D 

1 

VAR 

31 

D 

-8 

1 

I, SWITCHING: INTEGER; 

32 

D 

-9 

1 

REPLY: CHAR; 

33 

S 

34 

D 

-9 

1 

i  MODULE  PUMP^COMMANDS  3 

35 

B 

36 

D 

-9 

1 

i  *****  DUMPED  *****  3- 

37 

S 

38 

D 

1 

FUNCT I ON  DUMPED : BOOLEAN ; 

39 

S 

40 

D 

2 

VAR 

41 

D 

-4 

2 

W0RD7: INTEGER;  <  7  bit  word  3 

42 

B 

43 

C 

2 

BEGIN 

AAtC 

2 

I0C0NTR0L(12,3,«3792);  i  IEN,SYE,TME 

On 

45*C 

2 

I0C0NTR0L(12,1,1); 

46*0 

WRITEW0RD(12,-3936)  ;  i  ISL,SYE  On  3- 

47*C 

2 

I0C0NTR0L<12,3,0) ; 

48*C 

2 

W0RD7S  =4095- < lOSTATUB (12,3) +32768) ; 

49*C 

2 

DUMPED:  =W0RD7< 64;  i  64=2^'6  > 

50*C 

2 

END;  i  Proceedure  Dumped  > 

51: 

S 

52: 

s 

53: 

D 

-9 

1 

<  MODULE  TEST^CONDITIONB  > 

54: 

B 

55: 

D 

-9 

1 

{  *****  SWITCH^SET  *****  3 
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56:5 
57:  D 
5B:D 
59;  D 


1  FUNCTION  SWITCH^SET  (SWITCH.NO: INTEBER) : BOOLEAN; 

2  i  This  function  returns  value  of  True  if  the  switch 
2  i  number  on  Event  Sense  card  SWITCH  NO  is  set 


60:  D 
61:D 
62:  D 
63:  D 
64:5 
65:  D 
66:  D 
67:  D 
68:5 
69:  C 
70*C 
71»C 
72*0 
73*C 
74*.C 
75*C 
76*C 
77*C 
78*C 
79*C 
S0*C 
81:5 
B2;S 
83:5 
84:5 
85:5 
86:5 
87:  C 
8B*C 
89*0 
90*0 
91*0 
92*0 
93*0 
94:0 
95*0 
96*0 
97*0 
98:0 
99*0 
100*0 
101*0 
102:0 
•103*0 
104:0 
105:0 
106*0 
107*0 
108:0 
109*0 
110:5 


2  i  Notes: 

2  {  -  Pin  no.  on  card  =  SWITCHING  +  1 

2  <  -  E>{p<Ln(2)*I)*2‘^I 

2  C  -  Pump  interlock  is  Switch  #6 

2  VAR 

-8  2  I,W0RD7: INTEBER; 

-16  2  Ln2:REAL;  v 

2  BEBIN 

2  Ln2:«Ln(2); 

2  I0C0NTR0L(12,3,-3792) ;  i  IEN,SYE,TME  On  3 

2  I0C0NTR0L(12, 1, 1) ; 

2  WR I TEWDRD  <12, -3936 ) ; 

2  I0C0NTR0L<12,3,0) ; 

2  WDRD7:=4095-<IQSTATUS<12,3)+3276B) ;  f4095=7777H>  - 

2  FDR  I:  ==^6  DOWNTD  BWITCH.NO+l  DO 

3  IF  W0RD7>=E>:p<Ln2*I)  THEN  ^2"I}* 

4  W0RD7:=W0RD7“^R0UND(E>:p(Ln2»I)  );  {2^11 

2  SWITCH_SET:=W0RD7>=E>jp  <Ln2*SWITCH_N0)  ;  <2''SWITCH_N0> 

2  END;  -C  Function  Set_Switch  > 


BEGIN 

I0INITIALI2E; 

WRITELN  <FF, LF, LF, LF, LF, LF, LF , LF, LF) ; 

WRITELN(LF,LF,LF,LF,LF,TB, ’Hit  any  key  to  quit - ’) 

WRITELN  <US, US, US, US, US, US, US, US, US) ; 

WRITELN <TB,TB, ’Switch  Number ’, LF, LF) ; 

WRITELN <T5, ’  6’ , 1 : 5, 2: 5, 3: 5, 4: 5, 5: 5, T5, ’  Pump’ ,LF) ; 
10s  REPEAT 

WRITE  <CR,SP,SP,SP) ; 

FOR  SWITCH  N0s=0  TO  6  DO 
IF  SWITCH_N0=6  THEN 
BEGIN 

WRITE <T5); 

IF  DUMPED  THEN 
WRITE  <0FF) 

ELSE 

WRITE  (ON) ; 

END 

ELSE 

IF  SWITCH_SET(SWITCH_NO)  THEN 
WRITE  <0N) 

ELSE 

WRITE  (OFF) ; 
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111*C  2  UNTIL  NOT<UNITBUSY(KEYBRD) ) ; 

112»C  .1  READ  (REPLY); 

113«C  1  WRITE (BS, SP, BS> ; 

114:S 

IISJUC  1  WRITELN(LF,LF,LF,LF,LF,LF) ; 

116»C  1  WRITELN(TB, ’Program  ended....’); 

117»C  1  IQUNINIT1ALI2E; 

llBUcC  1  END. 

119;S 
120:  S 

No  errors.  No  warnings. 

Nonstandard  language  Features  enabled 
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1:D 
2:D 
3:8 
4;D 
5:8 
6:D 
7;D 
8:D 
9:D 
10:D 
11:D 
12:8 
13:D 
14:8 
15:D 
16:8 
17:D 
18:D 
19:D 
20:8 
21:D 
22:  D 
23:8 
24:  D 
25:  D 
26:D 
27:  D 
28:D 
29:8 
30:8 
31:D 
32:  D 
33:  D 
34:  D 
35:  D 
36:  D 
37:  D 
38;  D 
39:  D 
40:  D 
41:8 
42:  D 
43:8 
44:  D 
45:  D 
46:  D 

y 

47iD 
48:  D 
49:  D 
50:  D 
51:S 
52:  D 
53:  D 
54:  D 
55:5 


0  «UCSD»  «LINES  55«  »DEBUG  ON  « 

0  *SEARCH  ’#47:PASC_LIB.*, '«3:VAR_DEFIN'* 

0  PROGRAM  HSWR_COUNTER_CHECK; 

1  {  This  program  checks  the  counters  } 
1  C  and  the  pump  interlock  connections  > 


1  <  on  the  counter  panel.  Note  that  > 
1  £  pump  relay  should  always  remain  > 
1  <  closed  during  any  communication  > 
1  {with  the  counters.  > 


1  {  Revision  dated  24  November  1987  > 

1  LABEL  10; 

1  IMPORT 

1  I ODECLARAT I ONS , GENERAL_0 , GENERAL_ 1 , 

1  VAR_DEFINITIONS; 

1  TYPE 

1  C0UNT_ARRAY-ARRAYC1. .43  OF  INTEGER; 

1  VAR 

-24  1  I , J , COUNTER , PASS , RECRD , PO I NT : I NTEGER ; 

-40  1  COUNT :CQUNT_ARRAY; 

-41  1  REPLY: CHAR; 

-42  1  DUMMY: BOOLEAN; 


-42  1  {  Note:  Procedure  Switch_Set  is  normally  > 

—42  1  {  included  in  the  TEBT_C0ND  Module,  but  is  > 

—42  1  {is  not  the  purpose  of  this  checkout  rou—  > 

-42  1  {tine  to  check  this  procedure.  Switch_Set  > 

-42  1  {is  checked  in  the  HSWRSC  program,  so  > 

-42  1  {  don’t  copy  this  procedure  to  TEST^COND.  > 

—42  1  {  The  purpose  of  Switch_Set  is  to  delay  the  3 

-42  1  {  CPU  slightly,  giving  the  Multi  programmer  >3 

-42  1  {  time  to  open  or  close  the  relays  on  the  3 

-42  1  {  Relay  Output  card.  3 

-42  1  {  *****  SWITCH_SET  *****  3 

1  FUNCTION  SWITCH_SET  < SW I TCH_N0: INTEGER) : BOOLEAN; 

2  {  This  function  returns  value  of  True  if  the  switch  3 

2  {  number  on  Event  Sense  card  SWITCH_N0  is  set 

2  {  Notes:  ^ 

2  {  -  Pin  no.  on  card  =  SWITCH_N0  +1  3 

2  {  -  E>!p<Ln<2)*I)*2'^I  > 

2  {  —  Pump  interlock  is  Switch  #6  3 

2  VAR 

-8  2  I, W0RD7: INTEGER; 

-16  2  Ln2:REAL; 
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56:  C 

2 

BEGIN 

573ICC 

2 

Ln2: ^Ln  <2) ; 

5B»C 

2 

I0CDNTR0L<l2,3,-3792);  i  IEN,SYE,TME  On  > 

59*C 

2 

10C0NTR0L<12,1,1>; 

60»C 

2 

WRITEWORD ( 12, -3936) ; 

61»C 

2 

I0C0NTR0L<12,3,0); 

62tC 

2 

WDRD7: «4095- ( lOSTATUS ( 12, 3) +32768) ;  «4095=7777H> 

63»C 

2 

FOR  I:-6  DOWNTO  SWITCH_N0+1  DO 

64»C 

3 

IF  W0RD7>"Exp(Ln2»I)  THEN  t2^I> 

65»C 

4 

W0RD7:«W0RD7-R0UND<Exp(Ln2*I) ) ;  «2^I> 

66»C 

2 

SWITCH_SET:«W0RD7>»Exp(Ln2«SWITCH_N0) ; {2''SWITCH_N0> 

67»C 

2 

END;  i  Function  Set^Switch  > 

6B:S 
69:  S 
70:  S 
71:D 

-42 

1 

<  »»«»»  CLOSE_RELAY  »»*t»  > 

72:5 
73:  D 

1 

PROCEDURE  CLOSE_RELAY  (COUNTER: INTEGER) ; 

74;  C 

2 

BEGIN 

75:  C 

2 

i  Find  bit  corresponding  to  COUNTER  > 

76»C 

2 

IF  C0UNTER<0  THEN 

77*C 

3 

COUNTER: *-C0UNTER»2-l 

7B:C 

3 

ELSE 

79*C 

3 

COUNTER: = (COUNTER- 1 ) *2; 

BOtC 

2 

COUNTER: “ROUND (Exp (Ln (2) tCOUNTER) ) ;  t2^I > 

61:C 

2 

{  Close  the  relay,  but  don’t  dump  pump  > 

82;  C 

2 

{  Pump  is  7th  relay,  100  hex  “  256  > 

83»C 

2 

WR I TEWORD (12, -4000 ) ; 

B4«C 

2 

WR I TEWORD ( 1 2 , Re 1 ay _Out  _ 1 +C0UNTER+256 ) ; 

85»C 

2 

END;  i  Proceedure  Close_Relay  J 

B6:5 
87:5 
88:  D 

-42 

1 

i  »»»«»  OPEN.RELAY  *****  > 

89:5 
90:  D 

1 

PROCEDURE  OPEN.RELAY; 

91;C 

2 

BEGIN 

92:  C 

2 

<  Open  the  relay,  but  don’t  dump  pump  > 

933l:C 

2 

WR I TEWORD (12, -4000 ) ; 

94*C 

2 

WR I TEWORD (12, R®1 ay _Out  _ 1 +256 ) ; 

95»C 

2 

END;  {  Proceedure  Close_Relay  > 

96:5 
97:5 
98:  D 

-42 

1 

{  »««»»  ZERO.COUNTERS  *****  > 

99:5 
100:  D 

1 

PROCEDURE  ZERO.COUNTERS; 

101:5 
102:  D 

2 

VAR 

103:D 

-1 

2 

DUMMY: BOOLEAN; 

104:5 
105:  C 

2 

BEGIN 

106:  C 

2 

{  Close  the  relays,  but  don’t  dump  pump  > 

107»C 

2 

WRITEWORD ( 12, -4000) ; 

108*C 

2 

WRITEW0RD(12,Relay_0ut_l+170+256);  <  170-AA  hex  > 

109*C 

2 

DUMMY : “SW I TCH_SET ( 7 ) ; 

110*C 

2 

OPEN_RELAY; 
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111»C 

2 

END;  {  Proceedure  Zero^Countere  > 

112:8 

113:8 

114:D 

-42 

1 

<  RE8ET_C0UNTER8  *****  > 

115:8 

116:D 

1 

PROCEDURE  RE5ET_CDUNTERS  (PA88, RECRD, POINT: INTEGER) 

117:8 

118:D 

2 

VAR 

119:D 

-4 

2 

I: INTEGER; 

120:  D 

-5 

2 

DUliNY: BOOLEAN;  i  Used  as  program  delay  as  > 

121:D 

-5 

2 

■C  required  by  counters  > 

122:8 

123:  C 

2 

BEGIN 

124:  C 

2 

i  Zero  pass  counter  > 

125*C 

2 

DUMMY :»8W ITCH  8ET<7); 

126»C 

2 

CLOBE^RELAY  (-3); 

127<tC 

2 

DUMMY:«SWITCH  SET(7);  DUMMY:«SWITCH  8ET(7); 

128*C 

2 

OPEN^RELAY; 

129:  C 

2 

i  Reset  pass  counter  > 

130*C 

2 

FOR  I:*l  TO  PAS5  DO 

131;C 

3 

BEGIN 

132»C 

3 

DUMMY : «5W I TCH.SET ( 7 ) ; 

133*C 

3 

CLOSE  RELAY  <3) ; 

134*C 

3 

DUMMY : =SW I TCH^SET ( 7 ) ; 

135JICC 

3 

OPEN  RELAY; 

136:  C 

3 

END; 

137*C 

2 

DUMMY : =SW I TCH_SET  <  7 ) ; 

138:5 

139;  C 

2 

i  Reset  record  counter  I 

140*5 

2 

FOR  I:«l  TO  RECRD  DO 

141:C 

3 

BEGIN 

142*C 

3 

DUMMY: «SW ITCH  SET (7); 

143*C 

3 

CLOSE^RELAY  (2); 

144*C 

3 

DUMMY :=SW ITCH  SET<7); 

145*C 

3 

OPEN  RELAY; 

146:C 

3 

END; 

147:8 

148:C 

2 

i  Reset  point  counter  > 

149#C 

2 

FOR  I:=l  TO  POINT  DO 

150:  C 

3 

BEGIN 

151*C 

3 

DUMMY : «SW I TCH^SET  1 7 ) ; 

152*C 

3 

CLOSE  RELAY  (1); 

1 53*C 

3 

DUMMY: ^SWITCH.SET (7) ; 

154*C 

3 

OPEN  RELAY; 

155:  C 

3 

END; 

156*C 

2 

END;  i  Proceedure  Reset^Counters  I 

157:5 

158:5 

159:5 

160:  D 

-42 

1 

i  *****  INCR^COUNTER  *****  > 

161:5 

162:  D 

1 

PROCEDURE  INCR^COUNTER  (COUNTER: INTEGER) ; 

163:5 

164:D 

2 

VAR 

165;  D 

-1 

2 

DUMMY: BOOLEAN; 
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166:S 
167:C 
168»C 
169*C 
170»C 
171»C 
172:5 
173:5 
174:  D 
175:D 
176:D 
177:  D 
178:5 
179:D 
180:5 
181:D 
182:D 
183:  D 
184:5 
185:D 
186:0 
187:5 
188:  C 
189*C 
190»C 
191:5 
192*C 
193:  C 
194:C 
195»C 
196»C 
197*C 
198:C 
199:C 
200*C 
201  »C 
202:5 
203:  C 
20  Ate 
205 #C 
206:5 
207<cC 
208 »C 
209*C 
210*C 
211ltC 
212:C 
213»C 
214*C 
215*C 
216»C 
217*C 
218:5 
219*C 
220:5 


2  BEGIN 

2  CLOSE^RELAY  (COUNTER); 

2  DUMMY:»SWITCH  SET<7);  i  Program  delay  > 

2  OPEN^RELAY; 

2  END;  i  Proceedure  Incr^Counter  > 


-42 

1 

i 

Note:  Procedure  ReBtart_Mod^HSWRCC  is  not 

> 

-42 

1 

i 

in  the  TEST.COND  Nodule,  but  is  included 

> 

-42 

1 

i 

in  this  checkout  routine  to  check  Proced¬ 

> 

-42 

1 

i 

ure  Reset.Counters. 

> 

-42 

1 

i 

*»»»»  RESTART  NOD  HSWRCC  «»»»»  > 

1  PROCEDURE  RE5TART_M0D.H5WRCC  (VAR  PA5S,RECRD, POINT: INTEGER) 

2 

2  LABEL  1,2; 

2  VAR 

-12  REPLY: CHAR; 

2  BEGIN 

2  IF  PA58>0  THEN 

3  GOTO  2; 

2  1:  WRITELN<FF,LF,LF) ; 

D 

2  C  Find  Pass  number  > 

2  WRITELN(TD); 

2  WRITE  <TB, 'Enter  the  Pass  number  - 
2  READ  (PASS) ; 

2 

2  <  Find  Record  number  > 

2  WRITE  <LF,TB, 'Enter  the  Record  number  -  '); 

2  READ  (RECRD); 

2  <  Find  Point  number  > 

2  WRITE  (LF,TB, 'Enter  the  Point  number  - 

2  READLN  <P0INT) ; 

2  2:  WRITELN<FF,TD) ; 

2  WRITELN(TB, '  •  Pass  Number  PASS: 4, LF) ; 

2  WRITELN<TB, '  Recdr^el  Number  RECRD:  4, LF) ; 

2  WRITELN(TB,'  Point  Number  ,P0INT:4,LF) ; 

2  WRITE  (TB, 'Restart  at  this  point?  (Y  or  N)  -  '); 

2  REPEAT 

3  READ  (REPLY); 

3  WRITE  (BS,SP,BS); 

3  IF  <REPLY«'N’)  OR  (REPLY='n')  THEN 

4  SOTO  1 ; 

3  UNTIL  < (REPLY-' Y')  OR  (REPLY-' y' )) ; 

2  END;  i  Proceedure  Restart_Mod_HSWRCC  > 
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221  :S 
222:  S 
223:  D 
224  :S 
225:  C 
226»C 
227  :C 
22BI:C 
229«C 
230*C 
231  :C 
232*C 
233 :S 
234  :C 
235*C 
236»C 
237»C 
F); 

238*C 
239*C 
240»C 
241  *C 
2423KC 
243»C 
244  :S 
245 *C 
246*C 
247  :S 
248*C 
249:  C 
250 *C 
251  »C 
252»C 
253 *C 
254*C 
255  :C 
256*0 
257 *C 
25B*C 
259*C 
260:  C 
261  *C 
262*C 
263*C 
264*C 
265  :C 
266:  C 
267  ;C 
268»C 
269*C 
270:  C 
271»C 
272*C 
273:  C 
274  :C 
275*C 
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42  1  i  *****  Main  Program  ****  > 

1  BEGIN 

1  FOR  I:*4  DOWNTO  1  DO 

2  BEGIN 

2  C0UNTCI3:»0; 

2  CLOSE.RELAY  (-1); 

2  DUMMY:«SWITCH_SET(7) ;  DUMMY: =SWITCH_SET (7) | 

2  END; 

1  OPEN^RELAY; 

1  REPEAT 

2  WR I TELN  <  FF , LF , LF , LF ) ; 

2  WRITELN<T5, 'Enter  counter  number  you  want  changed, ' pLF) ; 

2  WRITELN(T5, '  "5"  to  change  1,  2,  and  3  all  at  the  same',  I 

2  WRITELN<T5, 'time  (like  restarting  a  fatigue  test),',LF>; 

2  WRITELN(T5,'or  "0"  to  quit - ',LF,LF,LF); 

2  WRITELN(TB,T5, 'Counter  1  *  ' ,C0UNTC 13: 1 ) ; 

2  WRITELN(TB,TB, '  2  «  ' , COUNTC23 : 1 ) ; 

2  WRITELN(TB,TB,  '  3  «=  ' ,  COUNTE33 : 1 )  ; 

2  WRITELN<TB,TB, '  4  =  ' , COUNTC43 ; 1 , LF) ; 

2  10:  READ (REPLY); 

2 

2 

3 

3 

4 
4 
4 
4 
4 


3 

4 
4 
4 
4 
4 
4 
4 
4 
4 

4 

5 
5 
5 
5 
4 
3 


WRITE  (BS,SP); 

IF  (REPLY>'0')  AND  (REPLY<'5')  THEN 
BEGIN 

CASE  REPLY  OF 
' 1' :C0UNTER:*1; 

'2': COUNTER: =2; 

'3' : COUNTER: «3; 

'4' : COUNTER: «4 
END;  {  Case  > 

WRITELN(FF,TD,LF,TB, 'How  many  times  do  you',LF); 
WRITE  (TB,'want  counter  ', REPLY, '  incremented?  '); 
READLN(J} ; 

IF  J«0  THEN 
BEGIN 

C0UNTCC0UNTER3:*0; 

CLOSE  RELAY  (-COUNTER); 

DUMMY:«SWITCH.SET(7) ;  DUMMY: «SWITCH.SET (7) ; 
OPEN^RELAY; 

END 

ELSE 

BEGIN 

COUNT  C  COUNTER  3 : »COUNT  C  COUNTER  3  + J ; 

FOR  I:=l  TO  J  DO 
BEGIN 

INCR^COUNTER  (COUNTER); 

DUMMY:«SWITCH_SET (7) ; 

END; 

END; 

IF  (C0UNTER«2)  OR  (C0UNTER«3)  THEN 
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276»C 

4 

COUNT C COUNTER- 1 3 : -0; 

277:  C 

278:  S 

3 

END; 

279»C 

2 

IF  REPLY®’ 5'  THEN 

280:  C 

3 

BEGIN 

281  «C 

3 

RE8TART_M0D_HSWRCC  (PA88, RECRD , PO I NT ) 

2B2«C 

3 

RE8ET  C0UNTER5  (PA8S,RECRD,P0INT) ; 

2B3»C 

3 

COUNT! 13:-P0INT; 

284»C 

3 

COUNTt23:®RECRD; 

285»C 

3 

C0UNT!33:-PAS8; 

286:  C 
287:8 

3 

END; 

28B»C 

2 

UNTIL  (REPLY«’0’)  OR  (REPLY®’q’); 

2B9»C 

1 

WRITELN{LF,LF,LF); 

290»C 

291:5 

1 

WRITELN<TB, 'Program  ended....’); 

292»C 

293:8 

1 

END. 

No  errors.  No  warnings. 

ttttt  Nonstandard  language  features  enabled 
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1 

D 

0 

«UCSD$  »DEBU6  ON  $  «LINES  55$ 

2 

D 

0 

♦SEARCH  =•  #47: PASC_L1B. ' , ' #3:  VAR_DEF1N’  ♦ 

3 

D 

0 

4 

D 

0 

PROGRAM  HSWR_CHECK_DISPLAY; 

5 

5 

6 

D 

1 

{  This  program  is  used  to  develop  the  crt  > 

7 

D 

1 

i  displays  the  operator  Mill  see  during  the  > 

8 

D 

1 

<  test.  Note  that  some  statements  required  > 

9 

D 

1 

€  in  the  HSWR  Program  are  left  in  this  rou-  > 

10 

D 

1 

<  tine  to  make  it  easier  to  revise  the  main  > 

11 

D 

1 

E  program p  but  are  "commented  out"  to  simp-  > 

12 

D 

1 

<  lify  this  checking  routine.  All  lines  > 

13 

D 

1 

C  "commented  out"  can  be  found  by  searching  > 

14 

D 

1 

<  for  the  string  "+++".  > 

15 

S 

16 

D 

1 

{  Revision  dated  22  December  1987  > 

17 

S 

18 

S 

19 

D 

1 

LABEL  25,30,40,45; 

20 

S 

21 

D 

1 

IMPORT 

22 

D 

1 

GENERAL  1 , I ODECLARAT I ONS , 

23 

D 

1 

SYSGLOBALS , CLOCK , VAR_DEF I N I T I ONS ; 

24 

S 

25 

D 

1 

TYPE 

26 

D 

1 

SPEC_ARRY»ARRAYC1. . 103  OF  INTEGER;  {+++> 

27 

S 

. 

28 

D 

1 

CONST 

29 

D 

1 

DLL= 172090; 

30 

D 

1 

LBSMAX*300000; 

31 

D 

1 

FS=10.0; 

32 

D 

1 

CORR  VAL=1.08;  C  Correction  to  positive  loads  > 

33 

D 

1 

SPEC”VAL®SPEC  ARRYEO, 900, 100, 800, 200, 

34 

D 

1 

700 , 300 , 600 , 400 , 500 3 ;  E +++  > 

36 

5 

D 

1 

VAR 

37 

D 

1 

I,J, lOR, 

38 

D 

1 

PASS, FLIGHT, POINT, 

39 

D 

-•32 

1 

FDBACK,LOADPT; INTEGER;  E  Loadpt=NeKtpt  in  lbs  J 

40 

D 

--32 

1 

NEXTPC,  E  Corrected  load  point  in  ^DLL  3 

41 

D 

^56 

1 

STRTPC,PC_DIF:REAL;  E  Previous  load  pt  in  7.DLL  3 

42 

D 

“57 

1 

REPLY  ~  :CHAR; 

43 

D 

“74 

1 

T0,T  :REAL; 

44 

D 

“78 

1 

TIME  :TIMEREC; 

45 

D 

“160 

1 

TITLE  :B80; 

46 

D 

“162 

1 

FAT I GUE , REPLY_0K : BOOLEAN ; 

47 

5 

48 

S 

49 

D 

“162 

1 

E  »»»»*  LOAD  »»»«»  3 

50 

iS 

51 

D 

“8 

1 

FUNCTION  LOAD  <FS:REAL)  : INTEGER; 

52 

iS 

53 

D 

“8 

2 

VAR 

54 

D 

“12 

2 

V: INTEGER; 

55 

S 
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56:  C 

2 

BEGIN 

57;  C 

2 

{  Read  voltage  > 

5B»C 

2 

WRITEW0RD(12,-3920) ;  i  ISL,  SYE,  TME  Dn  > 

59*C 

2 

WR1TEM0RD<12.A  to  D  1); 

60»C 

2 

READWORD  <12,vT; 

61:C 

2 

<  Convert  volts  to  load  J 

62tC 

2 

V:«V+3276B;  i  Subtract  IRQ  (lOOOOOoct)  > 

6ZtC 

2 

IF  V>2047  THEN  V:*=V-4096;  <  2's  complement  > 

64:  C 

2 

{  LSB=5(r.V  -for  lOV  range,  > 

65:  C 

2 

i  FS=300,0001bs,  50/FS  =  resolution  in  pounds  3 

66»C 

2 

LOAD: -ROUND ( (0.005»V) « (300000/FS) ) ; 

67:  S 

68»C 

2 

END?  <.  Function  Load  3 

69:5 

70:  S 

71:5 

72;  C 

1 

BEGIN 

73*C 

1 

NEXTPC:=0; 

74*c 

1 

L0ADPT:=0: 

75*C 

1 

STRTPC:=0; 

76*C 

1 

PASS:-1; 

77»C 

1 

FLIGHT: =1; 

78*C 

1 

P0INT:=1; 

791ICC 

1 

I:  =  l; 

80*C 

1 

WRITE  (FF,TD,T5, 'Static  or  Fatigue  <S  or  F)?  '); 

81:C 

1 

REPEAT 

B2tC 

2 

READ  (REPLY) ; 

B33ICC 

2 

WRITE (BS.SP.BS) ; 

84»C 

2 

UNTIL  (REPLY-' S')  OR  (REPLY-' s')  OR 

85:  C 

2 

(REPLY-' F')  OR  (REPLY-'-f  ’ ) ; 

86:5 

S7*C 

1 

FATIGUE:- (  (REPLY-' F' )  OR  (REPLY-'-f'))? 

88:5 

89*0 

1 

T I TLE : -ST AT I C_T I TLE  ? 

90  *C 

1 

IF  NOT (FATIGUE)  THEN 

91*C 

o 

A. 

GOTO  40; 

92:  C 

1 

93*C 

1 

TITLE: -FAT I GUET I TLE ; 

94*C 

1 

NEXTPC: -SPEC.VALC I  3 ; 

95:5 

96;  C 

1 

i  t****  Compute  Load  Factors  3 

97:5 

98*C 

1 

25: LOADPT: -ROUND (NEXTPC*DLL/ 100) ? 

99*C 

1 

WRITELN(FF, TITLE, LF,LF) ? 

100:5 

101:5 

102*C 

1 

IF  FATIGUE  THEN 

103:  C 

2 

BEGIN 

104*C 

2 

WRITELN(TB,’  Pass  Number  =' , PASS: 8, LF) ? 

105*C 

2 

WRITELN(TB, '  Flight  Number  =' ,FLIGHT:8,LF) ? 

106*C 

2 

WRITELN(TB,'  Point  Number  ,P0INT:8,LF) ? 

107*C 

2 

WRITELN(TB, ’  Spectrum  Value  , 

108:  C 

(SPEC  VALCI3/10)  :8: 1, '  5iDLL',LF); 

109*C 

2 

WRITELnTtB, 'Corrected  Value  =’ , NEXTPC: 8: 1 , '  7.DLL', 

110:C  . 

2 

END 
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111:C 

2 

ELSE 

112:C 

2 

BEGIN 

iiztc 

2 

WRITELN<TB, '  Ramping  to  ' ,  NEXTPC:  5: 1 , '  7.  o-f  DLL'jLF); 

114»C 

2 

WR1TELN(TB.TB,  ’  ’ ,  (2*NEXTPC/3) :  5: 1 ,  ^  7.  o-f  TUL’,LF,LF 

115;C 

116:S 

2 

END; 

117*C 

1 

WRITELN(TB,  =■  Desired  Load  =' ,L0ADPT:  8, '  lbs',TD); 

11B«C 

1 

WRITELN(TB,  =•  Hit  any  key  to  halt  test....’); 

119*0 

1 

WRITE  (TU,TB, ’  Feedback  =’, LOAD (FS) ; 8, 

120;  C 
121;S 

1 

’  ibs’,B5,BS,BS,BS); 

122:C 

123:  B 

1 

<+++  The  following  section  is  for  checking  routine  J 

124*C 

1 

30:SYSTIME(TIME); 

125*C 

1 

WITH  TIME  DO 

126*C 

2 

TO ; =HDUR*3600+M I NOTE  *60+CENT I SECOND / 1 00 ; 

127»C 

128:5 

1 

T:*0; 

129:  C 

1 

REPEAT 

130*C 

WRIT£  .  (BT,L0AD(FS) :8) ; 

131*C 

2 

IF  FATIGUE  THEN 

132:  C 

BEGIN 

133*C 

3 

SYSTIME(TIME) ; 

134*C 

3 

WITH  TIME  DO 

135*C 

4 

T : =HQUR* 3600+M I NUTE*  60+CENT I SECOND / 1 OO-TO ; 

136:  C 

3 

END; 

137*C 

2 

UNTIL  <NOT(UNITBUSY(KEYBRD) )  OR  (T>1)); 

138:5 

139*C 

1 

IF  T>1  THEN 

140;  C 

BEGIN 

141*C 

2 

STRTPC:=NEXTPC; 

142*C 

2 

I:=I-4-l; 

143*C 

2 

IF  I >10  THEN  I;=l; 

144*C 

2 

NEXTPC: =SPEC_VALC 1 3  »C0RR_VAL/ 10; 

145:C 

146:C 

2 

{  Increment  Counters  3 

147*C 

2 

POINT: =P0INT+1; 

14S*C 

2 

WRITE  <TU,TU>; 

149*C 

r> 

IF  P0INT=i69  then  i  New  Flight  3 

150:  C 

3 

BEGIN 

151*C 

3 

P0INT:=1: 

152*C 

FLIGHT: =FLIGHT+1; 

153*C 

3 

WRITE  (US, US): 

154*C 

3 

IF  FLIGHT=356  THEN  <  New  Pass  3 

155;C 

4 

BEGIN 

156*C 

4 

FLIGHT: =1; 

157*C 

4 

PASS:«=PASS+1: 

158;C 

4 

f-<-4-+3  <IF  SWITCH_SET(1)  THEN  GOTO  40;  3  {  Hold  3 

159*C 

4 

WRITE  <BT,US,US,PASB:8,LF,LF) ; 

160;  C 

4 

END; 

161:C 

3 

<.+++>  <IF  SWITCH  SET  (2)  THEN  GOTO  40;  3  C  Hold  3 

162*C 

3 

WRITE  (BT,FLIGHT:8,LF,LF) ; 

163:  C 
164:5 

3 

END; 

165*C 

2 

WRITE  (BT,P0INT:8,LF,LF); 
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166»C 

2 

WRITE  <BT,  (SPEC_VAHI3/10)  :B:  1,LF,LF) ; 

167*C 

2 

WRITE  tBT,NEXTPC:B: 1,LF,LF) ; 

168«C 

2 

L0ADPT:eR0UND(NEXTPC#DLL/100) ; 

169tC 

2 

WRITE  (3T,L0ADPT:B,LF,LF) ; 

170:C 

2 

171*C 

2 

60T0  30;  <  Bo  to  Ramp  > 

172:C 

2 

END; 

173:S 

174*C 

1 

READ (REPLY) ; 

175;  S 
176<tC 

1 

40: WRITELN(FF, TITLE, LF,LF) ; 

177»C 

1 

WRITELN(TB,’  Holding  at  %NEXTPC:5: 1 , ’7.  of  DLL’.LF); 

178»C 

1 

WRITELN<TB,TB,  ’  ' ,  t2»NEXTPC/3)  :5: 1 , '7.  of  TUL',LF,LF) 

179*C 

1 

WRITELN(TB, ’  Desired  Load  e’,L0ADPT:B, 

180:C 

1 

»  lbs',TD); 

181»C 

1 

IF  NEXTPCOO  THEN  WRITELN  <LF,  LF,  LF) ; 

182*C 

1 

WRITELN(TB,’  Hit:’); 

183:8 

184»C 

1 

IF  FATIGUE  THEN 

185»C 

2 

WRITELN(TB, ’  C  to  Continue  test  were  stopped’) 

186:C 

2 

ELSE 

1S7:C 

2 

BEGIN 

188«C 

2 

WRITELN(TB, ’  S  to  trigger  data  Scan’); 

1893|^C 

2 

WRITELN (TB,’  L  for  next  Load  point’); 

190:  C 

2 

END; 

191:8 

• 

192*0 

1 

IF  NEXTPC=0  THEN 

193*C 

2 

WRITELN<TB, ’  M  to  return  to  the  Menu  ’,US) 

194:C 

2 

ELSE 

195*C 

2 

WRITELN(TB,’  U  to  Unload  ’,TB,TU,US); 

196:8 

197*C 

1 

WRITE  (TU.US); 

198*0 

1 

IF  NOT (FATIGUE)  THEN  WRITE (US); 

199:8 

* 

200*0 

1 

FDBACK:=L0AD(FS) ; 

201*0 

1 

WRITE  (TB, ’  Feedback  =’,FDEACK:B, 

202:0 

1 

’  lbs’ ,BS,BS,BS,BS) ; 

203*0 

1 

IF  NEXTPCOO  THEN 

204:0 

BEGIN 

205*0 

WRITELN (LF) ; 

206*0 

2 

i+++y  FDBACK:=LDADPT;  {  This  statement  for  debugging  3 

207*0 

2 

WRITELN (T5, ’Absolute  Difference  =’ , 

208:0 

2 

( FDBACK-LOADPT ) : 8 , ’  1 bs ’ , LF ) ; 

209*0 

2 

PC  DIF:=ABS(1-FDBACK/L0ADPT)»100; 

210*0 

2 

IF“pC_DIF<0. 1  THEN  PC_DlF:-0; 

211*0 

WRITE  (T5,  ’  Percent  Difference  •=’ , 

212:0 

2 

PC  DIF:  8:1,’  7.’ ,  BS,  BS,  TU) ; 

213:0 

2 

END; 

214:8 

215:0 

1 

i  Inner  loop  repeats  until  operator  > 

216:0 

1 

C  responds,  and  Outer  loop  repeats  3 

217:0 

1 

C  until  operator  response  is  ok  3 

218:0 

1 

45: REPEAT  {  Outer  loop  3 

219:0 

REPEAT  {  Inner  Loop  3 

220*0 

3 

FDBACK:=L0AD(FS) ; 
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221  *C 

3 

WRITE  (BT,FDBACK:B); 

222»C 

3 

IF  NEXTPCOO  THEN 

223:  C 

4 

BEGIN 

224»C 

4 

WRITE  (LF,LF,BT, (FDBACK-LOADPT) :8, LF,LF)  i 

225*C 

4 

PC  DIF: «ABS ( 1-FDBACK/LOADPT ) » 100; 

226*C 

4 

IF  PC  DIF<0. 1  THEN  PC_DIF:=0; 

227 *C 

4 

WRITE  (BT,PC_DIF:B: 1,TU) ; 

228;  C 

4 

END; 

229;  S 

230*C 

3 

SYSTIME (TIME) ; 

231  *C 

3 

WITH  TIME  DO 

232»C 

4 

TO:»hOUR»3600+MINUTE*60+CENTISECOND/100; 

233;  C 

3 

REPEAT 

234»C 

4 

SYSTIME (TIME); 

235»C 

4 

WITH  TIME  DO 

236»C 

5 

T : =HQUR»3600+M I NUTEt60+CENT I SECOND/ 1 00 ; 

237»C 

4 

UNTIL  (T-TO) >0.075;  i  75  msec  delay  3 

238:  S 

239:  C 

7; 

{  Check  -for  overload  > 

240:  C 

7; 

{  +++  Taken  out  of  checking  routine  3 

241:8 

242*8 

UNTIL  NOT (UNITBUSY(KEYBRD) ) ;  <  Inner  loop  3 

243:8 

244*8 

2! 

READ (REPLY); 

245*8 

2! 

WRITE (BB,SP,BS) ; 

246:8 

247*8 

2 

IF  NEXTPC=0  THEN 

248*8 

REPLY  CK:«( (REPLY® 'M' )  OR  (REpLY®'m')) 

249:8 

ELSE 

250*8 

*7 

REPLY_rK:  =  (  (REPLY®’ IJ’ )  OR  (REPLY®’ u’ )) ; 

251:8 

252*8 

IF  FATIGUE  THEN 

253:8 

S.’ 

BEGIN 

254*8 

IF  (REFLY=’C’)  OR  (REPLY=’c’)  THEN 

255*8 

4 

REPLY _OK:®TRUE; 

256:8 

3 

END 

257:8 

V' 

ELSE 

258*8 

3 

IF  <REFLY®’S’)  OR  (REPLY®’ s’)  OR 

259:8 

4 

(REPLY®’ L’ )  OR  (REPLY®’ 1 ’ )  THEN 

260*8 

A 

REPLY _OK:®TRUE; 

261:8 

262:8 

2 

C  Outer  loop  3 

263*8 

2 

UNTIL  REPLY _0K; 

264:8 

265:8 

{+++IF  (REPLYe’M’)  OR  (REPLY®’m’)  THEN 

266:8 

1 

GOTO  10; 3  i  Go  to  Menu  3 

267:8 

268*8 

1 

IF  (REPLY®’ S’)  OR  (REPLY®’ s’)  THEN 

269:8 

2 

BEGIN 

270:8 

r> 

C+++  SCAN. 1000  (TRUE); 3 

271*8 

2 

GOTO  45;  C  Continue  hold  3 

272:8 

2 

END; 

273:8 

274*8 

1 

WRITELN(LF,LF) ; 

275*8 

1 

IF  NEXTPCOO  THEN  WRITELN  (LF,  LF,  LF)  ; 
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276;  S 
277t£ 

1 

IF  <REPLY=’CM  OR  <REPLY=’c’)  THEN 

27B:C 

2 

BEGIN 

279»C 

2 

GOTO  25;  <  Go  to  Compute  Load  Factors  > 

2B0:C 

2 

END; 

2B1:S 

282*C 

1 

IF  (REPLY®  U’)  OR  (REPLY®’ u’)  THEN 

2B3:C 

2 

BEGIN 

284 >C 

2 

STRTPC:«NEXTPC; 

2B5»C 

2 

NEXTPC;=0; 

286«C 

2 

GOTO  25:  i  Go  to  Compute  Load  Factors  > 

2B7;C 

2 

END; 

288  :S 
289*C 

i 

A 

IF  (REPLY®’L’)  OR  (REPLY®’!’)  THEN 

290:  C 

2 

BEGIN 

291  »C 

V 

2 

WRITELN (TB, TB, TB, TB) ; 

292*C 

WRITELN (LF, TB, TB, TB, IB) ; 

2933ICC 

2 

WRITELN  C’B, TB, TB, TB) ; 

294JICC 

2 

WRITELN (TB, TB, TB, TU) ; 

295 *C 

WRITE  (UL,CR,’What  is  new  load  point  ’, 

296:  C 

•p 

’in  percent  of  DLL? 

297:8 

298*C 

2 

STRTPC:®NEXTPC; 

299:8 
300  :C 

o 

REPEAT 

301  :C 

3 

♦lOCHElK  OFF* 

302*C 

READLN (NEXTPC) ; 

303 :C  . 

*I0CHECK  ON  * 

304 *C 

.> 

I0R:®Ii-3RESULT; 

305*C 

3 

IF  lOROO  THEN 

306*C 

4 

WRITE  (CR,LF,’Try  again,  new  load  point?  ’) 

307  :C 

4 

ELSE 

308»C 

4 

IF  ABS(DLL»NEXTPC/100) >LBSMAX  THEN 

309  :C 

5 

BE>3IN 

310*C 

5 

WRITELN (CR, LF ,T5, ’Maximum  load  is  +/-’ , 

311:C 

3 

LBSMAX: 1, ’lbs  (’, ROUND (LBSMAX /DLL » 100) : 1, 

312:C 

5 

’•/.  DLL)  ’  ,LF  ) ; 

313»C 

5 

WRITE  (T5,’1ry  again,  new  load  point?  ’); 

314*C 

5 

I0R:®1; 

315:C 

5 

END; 

316*C 

3 

UNTIL  I0R=0; 

317:8 

318»C 

2 

IF  NEXTPC®STRTPC  THEN 

319:C 

3 

BEGIN 

320*C 

> 

WRITE  (BL); 

321  »C 

3 

GOTO  4D;  {  Go  to  Held  > 

322  :C 

3 

END; 

323 : 8 
324 #C 

7 

GOTO  25;  i  Go  to  Compute  Load  F'actors  > 

325  :C 

2 

END; 

326:8 

327ltC 

:i 

WRITELN (TDi; 

328*C 

1 

WRITELN (TB, ' Program  Ended. ...’); 

329*C 

X 

END. 
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331:5 

No  errors.  No  warnings.  • 

ftOtt  Nonstandard  language  features  enabled 
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